diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/array-slices.exp')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/array-slices.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.fortran/array-slices.exp b/gdb/testsuite/gdb.fortran/array-slices.exp index b1e3dad..0a7851e 100644 --- a/gdb/testsuite/gdb.fortran/array-slices.exp +++ b/gdb/testsuite/gdb.fortran/array-slices.exp @@ -56,9 +56,9 @@ proc array_slice_to_var { slice_str } { proc run_test { repack } { global binfile gdb_prompt - clean_restart ${binfile} + clean_restart ${::testfile} - if ![fortran_runto_main] { + if {![fortran_runto_main]} { return -1 } @@ -132,7 +132,7 @@ proc run_test { repack } { } } - if ($found_final_breakpoint) { + if {$found_final_breakpoint} { break } |