diff options
author | Tom Tromey <tromey@redhat.com> | 2012-06-25 20:51:35 +0000 |
---|---|---|
committer | Tom Tromey <tromey@redhat.com> | 2012-06-25 20:51:35 +0000 |
commit | cf09b3e42cd0594ec198a6f572b35aa78817c275 (patch) | |
tree | f6f7ffbaa4f7ea0f33d43963cc534dde0a50eff8 /gdb/testsuite/gdb.fortran/array-element.exp | |
parent | 496ee73e83adc843bdea34b948c0cfb17c55f61f (diff) | |
download | gdb-cf09b3e42cd0594ec198a6f572b35aa78817c275.zip gdb-cf09b3e42cd0594ec198a6f572b35aa78817c275.tar.gz gdb-cf09b3e42cd0594ec198a6f572b35aa78817c275.tar.bz2 |
* gdb.fortran/subarray.exp: Use standard_testfile,
prepare_for_testing.
* gdb.fortran/multi-dim.exp: Use standard_testfile.
* gdb.fortran/module.exp: Use standard_testfile.
* gdb.fortran/logical.exp: Use standard_testfile.
* gdb.fortran/library-module.exp: Use standard_testfile,
standard_output_file.
* gdb.fortran/derived-type.exp: Use standard_testfile,
prepare_for_testing.
* gdb.fortran/complex.exp: Use standard_testfile,
prepare_for_testing.
* gdb.fortran/charset.exp: Use standard_testfile.
* gdb.fortran/array-element.exp: Use standard_testfile,
prepare_for_testing.
Diffstat (limited to 'gdb/testsuite/gdb.fortran/array-element.exp')
-rw-r--r-- | gdb/testsuite/gdb.fortran/array-element.exp | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gdb.fortran/array-element.exp index 9150a45..90c42d1 100644 --- a/gdb/testsuite/gdb.fortran/array-element.exp +++ b/gdb/testsuite/gdb.fortran/array-element.exp @@ -20,20 +20,12 @@ if { [skip_fortran_tests] } { return -1 } -set testfile "array-element" -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 } -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - if ![runto sub_] then { perror "couldn't run to breakpoint sub_" continue |