diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/call-no-debug.exp')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/call-no-debug.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.fortran/call-no-debug.exp b/gdb/testsuite/gdb.fortran/call-no-debug.exp index 1b158c4..96ccdd7 100644 --- a/gdb/testsuite/gdb.fortran/call-no-debug.exp +++ b/gdb/testsuite/gdb.fortran/call-no-debug.exp @@ -22,7 +22,7 @@ standard_testfile call-no-debug-prog.f90 call-no-debug-func.f90 load_lib fortran.exp if {[prepare_for_testing_full "failed to prepare" \ - [list ${binfile} [list debug f90] \ + [list $testfile [list debug f90] \ $srcfile [list debug f90] \ $srcfile2 [list nodebug f90]]]} { return -1 @@ -67,7 +67,7 @@ proc find_mangled_name { name } { set some_func [find_mangled_name "some_func"] set string_func [find_mangled_name "string_func"] -if ![fortran_runto_main] { +if {![fortran_runto_main]} { return -1 } |