Index: gdb/testsuite/gdb.fortran/subarray.exp |
diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp |
index 46151265c7eb8c0d1785f28f48413957cfd74037..ec23b32d60d918c1dabdb515df3d2bb07e34c077 100644 |
--- a/gdb/testsuite/gdb.fortran/subarray.exp |
+++ b/gdb/testsuite/gdb.fortran/subarray.exp |
@@ -18,18 +18,11 @@ |
# This file is part of the gdb testsuite. It contains tests for evaluating |
# Fortran subarray expression. |
-if $tracelevel then { |
- strace $tracelevel |
-} |
- |
if { [skip_fortran_tests] } { return -1 } |
-set testfile "subarray" |
-set srcfile ${testfile}.f |
-set binfile ${objdir}/${subdir}/${testfile} |
+standard_testfile .f |
-if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ |
- executable {debug f90}] != ""} { |
+if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}]} { |
return -1 |
} |