gdb/fortran: Add new 'info modules' command

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.fortran / info-types.exp

diff --git a/gdb/testsuite/gdb.fortran/info-types.exp b/gdb/testsuite/gdb.fortran/info-types.exp
index 9571dc455934d2d44a30e9a098f31e885e3bd48d..954e083e4069efaaf8293d7269cc999880c4f982 100644 (file)
--- a/gdb/testsuite/gdb.fortran/info-types.exp
+++ b/gdb/testsuite/gdb.fortran/info-types.exp
@@ -19,9 +19,10 @@ load_lib "fortran.exp"
 
 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
 }
 
@@ -31,6 +32,7 @@ if { ![runto MAIN__] } {
 }
 
 set integer4 [fortran_int4]
+set integer8 [fortran_int8]
 set logical4 [fortran_logical4]
 set character1 [fortran_character1]
 
@@ -41,5 +43,9 @@ gdb_test "info types" \
         "File .*:" \
         "\[\t \]+${character1}" \
         "\[\t \]+${integer4}" \
-        "\[\t \]+${logical4}" \
-        "16:\[\t \]+Type s1;" ]
+        "(\[\t \]+${integer8}" \
+        ")?\[\t \]+${logical4}" \
+        "(20:\[\t \]+Type __vtype_mod1_M1t1;" \
+        ")?$decimal:\[\t \]+Type m1t1;" \
+        "22:\[\t \]+Type s1;(" \
+        ".*)?"]