init [skip ci]

scivision · scivision · commit 6e4c31459ac0 · 2018-12-11T19:25:46.000-05:00
diff --git a/debug/CMakeLists.txt b/debug/CMakeLists.txt
@@ -9,3 +9,4 @@ add_test(NAME BoundsFail COMMAND badbounds)
 
 add_executable(nanmaxmin  maxmin_nan.f90)
 
+add_executable(typecast typecast.f90)
diff --git a/debug/typecast.f90 b/debug/typecast.f90
@@ -0,0 +1,16 @@
+program typec
+!! What happens when variables of one type are assigned to another type
+
+implicit none
+
+logical :: x,y,z
+
+x = 12343
+y = 0
+z = -1
+
+print *, '12343: true',x
+print *, '0: false',y
+print *, '-1: true', z
+
+end program

Original file line number	Diff line number	Diff line change
`@@ -9,3 +9,4 @@ add_test(NAME BoundsFail COMMAND badbounds)`
`9`	`9`
`10`	`10`	`add_executable(nanmaxmin maxmin_nan.f90)`
`11`	`11`
	`12`	`+add_executable(typecast typecast.f90)`