diff options
| -rw-r--r-- | gdb/testsuite/gdb.fortran/call-no-debug.exp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.fortran/call-no-debug.exp b/gdb/testsuite/gdb.fortran/call-no-debug.exp index 3c5172e..cbdefb6 100644 --- a/gdb/testsuite/gdb.fortran/call-no-debug.exp +++ b/gdb/testsuite/gdb.fortran/call-no-debug.exp @@ -102,5 +102,7 @@ if { $symbol_name == "" } { gdb_test "ptype ${symbol_name}" "type = <unknown return type> \\(\\)" gdb_test "print ${symbol_name} (&'abcdefg', 3)" \ "'${symbol_name}' has unknown return type; cast the call to its declared return type" - gdb_test "call (integer) ${symbol_name} (&'abcdefg', 3)" " abc\r\n\\\$\\d+ = 0" + gdb_test_stdio "call (integer) ${symbol_name} (&'abcdefg', 3)" \ + " abc" \ + "\\\$\\d+ = 0" } |