From cf09b3e42cd0594ec198a6f572b35aa78817c275 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 25 Jun 2012 20:51:35 +0000 Subject: [PATCH] * 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. --- gdb/testsuite/ChangeLog | 17 +++++++++++++++++ gdb/testsuite/gdb.fortran/array-element.exp | 12 ++---------- gdb/testsuite/gdb.fortran/charset.exp | 3 +-- gdb/testsuite/gdb.fortran/complex.exp | 12 ++---------- gdb/testsuite/gdb.fortran/derived-type.exp | 12 ++---------- gdb/testsuite/gdb.fortran/library-module.exp | 14 ++++++-------- gdb/testsuite/gdb.fortran/logical.exp | 6 ++---- gdb/testsuite/gdb.fortran/module.exp | 3 +-- gdb/testsuite/gdb.fortran/multi-dim.exp | 4 ++-- gdb/testsuite/gdb.fortran/subarray.exp | 7 ++----- 10 files changed, 37 insertions(+), 53 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d2d1caede7f..44637aae6c3 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,20 @@ +2012-06-25 Tom Tromey + + * 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. + 2012-06-25 Keith Seitz * gdb.mi/mi-break.exp (test_rbreak_creation_and_listing): diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gdb.fortran/array-element.exp index 9150a459ac0..90c42d1c507 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 diff --git a/gdb/testsuite/gdb.fortran/charset.exp b/gdb/testsuite/gdb.fortran/charset.exp index 08ea9fa721e..15ec9effe8b 100644 --- a/gdb/testsuite/gdb.fortran/charset.exp +++ b/gdb/testsuite/gdb.fortran/charset.exp @@ -18,8 +18,7 @@ if { [skip_fortran_tests] } { return -1 } -set testfile "charset" -set srcfile ${testfile}.f90 +standard_testfile .f90 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug additional_flags=-fbackslash f90}] } { return -1 } diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp index 3b05995a36e..a37abef1a12 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 . -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 diff --git a/gdb/testsuite/gdb.fortran/derived-type.exp b/gdb/testsuite/gdb.fortran/derived-type.exp index b131da52da4..0623019781e 100644 --- a/gdb/testsuite/gdb.fortran/derived-type.exp +++ b/gdb/testsuite/gdb.fortran/derived-type.exp @@ -20,20 +20,12 @@ if { [skip_fortran_tests] } { return -1 } -set testfile "derived-type" -set srcfile ${testfile}.f90 -set binfile ${objdir}/${subdir}/${testfile} +standard_testfile .f90 -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 MAIN__] then { perror "couldn't run to breakpoint MAIN__" continue diff --git a/gdb/testsuite/gdb.fortran/library-module.exp b/gdb/testsuite/gdb.fortran/library-module.exp index 75b0695ee0b..9db5ab1ea21 100644 --- a/gdb/testsuite/gdb.fortran/library-module.exp +++ b/gdb/testsuite/gdb.fortran/library-module.exp @@ -13,11 +13,9 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -set testfile "library-module" -set srcfile ${testfile}-main.f90 +standard_testfile library-module-main.f90 set srclibfile ${testfile}-lib.f90 -set libfile ${testfile}-lib.so -set binfile ${testfile} +set libfile [standard_output_file ${testfile}-lib.so] # Required for -fPIC by gdb_compile_shlib. if [get_compiler_info] { @@ -25,7 +23,7 @@ if [get_compiler_info] { return -1 } -if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$libfile {debug f90}] != "" } { +if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $libfile {debug f90}] != "" } { untested "Couldn't compile ${srclibfile}" return -1 } @@ -34,14 +32,14 @@ if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$li # just for the linking phase (and not the source compilation phase). And any # warnings on ignored $libfile abort the process. -if { [gdb_compile $srcdir/$subdir/$srcfile $objdir/$subdir/$binfile executable [list debug f90 shlib=$objdir/$subdir/$libfile]] != "" } { +if { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable [list debug f90 shlib=$libfile]] != "" } { untested "Couldn't compile ${srcfile}" return -1 } -clean_restart $binfile +clean_restart $testfile -gdb_load_shlibs $objdir/$subdir/$libfile +gdb_load_shlibs $libfile if ![runto MAIN__] then { perror "couldn't run to breakpoint MAIN__" diff --git a/gdb/testsuite/gdb.fortran/logical.exp b/gdb/testsuite/gdb.fortran/logical.exp index 116f5987642..f7f1bf1e908 100644 --- a/gdb/testsuite/gdb.fortran/logical.exp +++ b/gdb/testsuite/gdb.fortran/logical.exp @@ -16,11 +16,9 @@ # This file was written by Jan Kratochvil . -set test "logical" -set srcfile ${test}.f90 +standard_testfile .f90 -if { [prepare_for_testing "${test}.exp" "${test}" "${srcfile}" {debug f90 quiet}] } { - untested "Could not compile ${srcfile}." +if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug f90 quiet}]} { return -1 } diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp index 5fea4c5c7aa..3517ef7fa90 100644 --- a/gdb/testsuite/gdb.fortran/module.exp +++ b/gdb/testsuite/gdb.fortran/module.exp @@ -13,8 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -set testfile "module" -set srcfile ${testfile}.f90 +standard_testfile .f90 if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}] } { return -1 diff --git a/gdb/testsuite/gdb.fortran/multi-dim.exp b/gdb/testsuite/gdb.fortran/multi-dim.exp index b300cf2990c..365abd0422f 100644 --- a/gdb/testsuite/gdb.fortran/multi-dim.exp +++ b/gdb/testsuite/gdb.fortran/multi-dim.exp @@ -18,8 +18,8 @@ if { [skip_fortran_tests] } { return -1 } -set testfile "multi-dim" -set srcfile ${testfile}.f90 +standard_testfile .f90 + if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}] } { return -1 } diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp index d43c85a67be..ec23b32d60d 100644 --- a/gdb/testsuite/gdb.fortran/subarray.exp +++ b/gdb/testsuite/gdb.fortran/subarray.exp @@ -20,12 +20,9 @@ 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 } -- 2.30.2