| 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
|
| }
|
|
|
|
|