NEWS and documentation for $_gdb_setting and $_gdb_setting_str.

[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..30646287ee968ef6edf90f3d4fdd8b61bb6cea19 100644 (file)
--- a/gdb/testsuite/gdb.fortran/info-types.exp
+++ b/gdb/testsuite/gdb.fortran/info-types.exp
@@ -31,6 +31,7 @@ if { ![runto MAIN__] } {
 }
 
 set integer4 [fortran_int4]
+set integer8 [fortran_int8]
 set logical4 [fortran_logical4]
 set character1 [fortran_character1]
 
@@ -41,5 +42,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;(" \
+        ".*)?"]