[gdb/testsuite] Fix clean_restart <absolute filename> in gdb.fortran

Fix clean_restart <absolute filename> in the test-cases in gdb.fortran.

Tested on x86_64-linux, with gcc 14.

diff --git a/gdb/testsuite/gdb.fortran/array-slices.exp b/gdb/testsuite/gdb.fortran/array-slices.exp
index b1e3dad01bb423f74acecd5d34d108abb2ad19e9..f0b649b73ef1c79033c5f596a51b14bd9fca5663 100644 (file)
--- a/gdb/testsuite/gdb.fortran/array-slices.exp
+++ b/gdb/testsuite/gdb.fortran/array-slices.exp
@@ -56,7 +56,7 @@ 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] {
        return -1

diff --git a/gdb/testsuite/gdb.fortran/call-no-debug.exp b/gdb/testsuite/gdb.fortran/call-no-debug.exp
index 1b158c42ca371c9e3fd7f0f221a46f5a94b7bd69..75298cccb8d497fdc820ef069f1cb09e9f4878c8 100644 (file)
--- 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

diff --git a/gdb/testsuite/gdb.fortran/huge.exp b/gdb/testsuite/gdb.fortran/huge.exp
index 35bc6c8fbfaaa8237ae89b7afc4d7e3523a12515..47bac7805ad703c1b51edd914791e4fccd9375a0 100644 (file)
--- a/gdb/testsuite/gdb.fortran/huge.exp
+++ b/gdb/testsuite/gdb.fortran/huge.exp
@@ -49,7 +49,7 @@ for { set size [expr $max] } { $size >= $min } { set size [expr $size / 2] } {
 require {expr $compilation_succeeded}
 
 # Start with a fresh gdb.
-clean_restart ${binfile}
+clean_restart ${::testfile}
 
 save_vars { timeout } {
     set timeout 30

diff --git a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp
index ac8f742bd6a06bce46c4ef091700a5b9530f2ea2..b59fb2c10ab6681e4e356a1cd484b5eec7a01b32 100644 (file)
--- a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp
+++ b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp
@@ -28,7 +28,7 @@ require allow_fortran_tests
 standard_testfile mixed-lang-stack.c mixed-lang-stack.cpp mixed-lang-stack.f90
 
 if {[prepare_for_testing_full "failed to prepare" \
-        [list ${binfile} {debug f90 additional_flags=-lstdc++} \
+        [list $testfile {debug f90 additional_flags=-lstdc++} \
              $srcfile {debug} \
              $srcfile2 {debug c++ additional_flags=-std=c++11} \
              $srcfile3 {debug f90}]]} {
@@ -43,7 +43,7 @@ proc run_tests { lang } {
     with_test_prefix "lang=${lang}" {
        global binfile hex have_index
 
-       clean_restart ${binfile}
+       clean_restart ${::testfile}
 
        if ![runto_main] {
            return -1