if { [skip_fortran_tests] } { continue }
-standard_testfile .f90
+standard_testfile info-types.f90 info-types-2.f90
-if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}] } {
+if { [prepare_for_testing "failed to prepare" $testfile \
+ [list $srcfile2 $srcfile] {debug f90}] } {
return -1
}
}
set integer4 [fortran_int4]
+set integer8 [fortran_int8]
set logical4 [fortran_logical4]
set character1 [fortran_character1]
"File .*:" \
"\[\t \]+${character1}" \
"\[\t \]+${integer4}" \
- "\[\t \]+${logical4}" \
- "20:\[\t \]+Type __vtype_mod1_M1t1;" \
- "17:\[\t \]+Type m1t1;" \
- "22:\[\t \]+Type s1;" ]
+ "(\[\t \]+${integer8}" \
+ ")?\[\t \]+${logical4}" \
+ "(20:\[\t \]+Type __vtype_mod1_M1t1;" \
+ ")?$decimal:\[\t \]+Type m1t1;" \
+ "22:\[\t \]+Type s1;(" \
+ ".*)?"]