Index: gdb/testsuite/gdb.mi/mi-var-child-f.exp |
diff --git a/gdb/testsuite/gdb.mi/mi-var-child-f.exp b/gdb/testsuite/gdb.mi/mi-var-child-f.exp |
index 9383f50bb2615047612f5809ac277ec052e977f5..052d7e243c78db19b9fddc3d93997c1a497c7c4f 100644 |
--- a/gdb/testsuite/gdb.mi/mi-var-child-f.exp |
+++ b/gdb/testsuite/gdb.mi/mi-var-child-f.exp |
@@ -25,9 +25,8 @@ if [mi_gdb_start] { |
continue |
} |
-set testfile "array" |
-set srcfile ${testfile}.f |
-set binfile ${objdir}/${subdir}/${testfile} |
+standard_testfile array.f |
+ |
if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ |
executable {debug f77}] != ""} { |
return -1 |