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