diff options
Diffstat (limited to 'gdb/testsuite/lib/fortran.exp')
| -rw-r--r-- | gdb/testsuite/lib/fortran.exp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/fortran.exp index 6f2bbd8..7572388 100644 --- a/gdb/testsuite/lib/fortran.exp +++ b/gdb/testsuite/lib/fortran.exp @@ -19,11 +19,12 @@ # The result is 1 (true) for success, 0 (false) for failure. proc set_lang_fortran {} { - if [gdb_test_no_output "set language fortran"] { + if {[gdb_test_no_output "set language fortran"]} { return 0 } - if [gdb_test "show language" ".* source language is \"fortran\"." \ - "set language to \"fortran\""] { + if {[gdb_test "show language" \ + [string_to_regexp {The current source language is "fortran".}] \ + {set language to "fortran"}]} { return 0 } return 1 |