Fortran, typeprint: Take level of details into account when printing elements of...

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

diff --git a/gdb/testsuite/gdb.fortran/whatis_type.exp b/gdb/testsuite/gdb.fortran/whatis_type.exp
index 7265923447874417d88bdbef3eea5dcd3bb7a529..0b7a1b71a6825162535d43b46ccdf85425c329b6 100644 (file)
--- a/gdb/testsuite/gdb.fortran/whatis_type.exp
+++ b/gdb/testsuite/gdb.fortran/whatis_type.exp
@@ -38,18 +38,8 @@ gdb_continue_to_breakpoint "bp1"
 set t1_i "$int :: t1_i"
 set t1_r "$real :: t1_r"
 
-gdb_test "whatis t1" \
-  [multi_line "type = Type t1" \
-                 "    $t1_i" \
-                 "    $t1_r" \
-                 "End Type t1"] \
-  "whatis t1"
-gdb_test "whatis t1v" \
-  [multi_line "type = Type t1" \
-                 "    $t1_i" \
-                 "    $t1_r" \
-                 "End Type t1"] \
-  "whatis t1v"
+gdb_test "whatis t1" "type = Type t1"
+gdb_test "whatis t1v" "type = Type t1"
 
 gdb_test "ptype t1" \
   [multi_line "type = Type t1" \