Index: gdb/testsuite/gdb.fortran/complex.exp |
diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp |
index 3b05995a36ed667facd0e88152bae0c15828b1fe..a37abef1a1259de406ea134c97f18b069ccf9f63 100644 |
--- a/gdb/testsuite/gdb.fortran/complex.exp |
+++ b/gdb/testsuite/gdb.fortran/complex.exp |
@@ -13,21 +13,13 @@ |
# You should have received a copy of the GNU General Public License |
# along with this program. If not, see <http://www.gnu.org/licenses/>. |
-set testfile "complex" |
-set srcfile ${testfile}.f |
-set binfile ${objdir}/${subdir}/${testfile} |
+standard_testfile .f |
-if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ |
- executable {debug f90 quiet}] != "" } { |
+if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug f90 quiet}]} { |
untested "Couldn't compile ${srcfile}" |
return -1 |
} |
-gdb_exit |
-gdb_start |
-gdb_reinitialize_dir $srcdir/$subdir |
-gdb_load ${binfile} |
- |
if ![runto MAIN__] then { |
perror "Couldn't run to MAIN__" |
continue |