diff options
| author | Bernhard Heckel <bernhard.heckel@intel.com> | 2016-05-25 08:47:16 +0200 |
|---|---|---|
| committer | Bernhard Heckel <bernhard.heckel@intel.com> | 2016-05-25 08:47:16 +0200 |
| commit | 3cd81d8df727cc961b9333d5e977718c622bf9c3 (patch) | |
| tree | b014c96b8a99ce7326600ffc30d88d3c9bb345be /gdb/testsuite/gdb.fortran | |
| parent | e4c1704d7af52f3eeb2b8a676912da41d4b19c9e (diff) | |
| download | gdb-3cd81d8df727cc961b9333d5e977718c622bf9c3.zip gdb-3cd81d8df727cc961b9333d5e977718c622bf9c3.tar.gz gdb-3cd81d8df727cc961b9333d5e977718c622bf9c3.tar.bz2 | |
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.
Diffstat (limited to 'gdb/testsuite/gdb.fortran')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/whatis_type.exp | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.fortran/whatis_type.exp b/gdb/testsuite/gdb.fortran/whatis_type.exp index af897a6..b6324e6 100644 --- a/gdb/testsuite/gdb.fortran/whatis_type.exp +++ b/gdb/testsuite/gdb.fortran/whatis_type.exp @@ -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" |