Fortran, testsuite: Use multi_line in whatis_type testcase.
2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com> gdb/testsuite/Changelog: * gdb.fortran/whatis_type.exp: Use multi_line.
This commit is contained in:
parent
e4c1704d7a
commit
3cd81d8df7
|
@ -1,3 +1,7 @@
|
|||
2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
|
||||
|
||||
* gdb.fortran/whatis_type.exp: Use multi_line.
|
||||
|
||||
2016-05-24 Tom Tromey <tom@tromey.com>
|
||||
|
||||
PR python/17386:
|
||||
|
|
|
@ -39,15 +39,27 @@ set t1_i "$int :: t1_i"
|
|||
set t1_r "$real :: t1_r"
|
||||
|
||||
gdb_test "whatis t1" \
|
||||
"type = Type t1\r\n${t1_i}\r\n${t1_r}\r\nEnd Type t1" \
|
||||
[multi_line "type = Type t1" \
|
||||
"$t1_i" \
|
||||
"$t1_r" \
|
||||
"End Type t1"] \
|
||||
"whatis t1"
|
||||
gdb_test "whatis t1v" \
|
||||
"type = Type t1\r\n${t1_i}\r\n${t1_r}\r\nEnd Type t1" \
|
||||
[multi_line "type = Type t1" \
|
||||
"$t1_i" \
|
||||
"$t1_r" \
|
||||
"End Type t1"] \
|
||||
"whatis t1v"
|
||||
|
||||
gdb_test "ptype t1" \
|
||||
"type = Type t1\r\n ${t1_i}\r\n ${t1_r}\r\nEnd Type t1" \
|
||||
[multi_line "type = Type t1" \
|
||||
" $t1_i" \
|
||||
" $t1_r" \
|
||||
"End Type t1"] \
|
||||
"ptype t1"
|
||||
gdb_test "ptype t1v" \
|
||||
"type = Type t1\r\n ${t1_i}\r\n ${t1_r}\r\nEnd Type t1" \
|
||||
[multi_line "type = Type t1" \
|
||||
" $t1_i" \
|
||||
" $t1_r" \
|
||||
"End Type t1"] \
|
||||
"ptype t1v"
|
||||
|
|
Loading…
Reference in New Issue