FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PR testsuite/12040:

Browse source 
* gdb.fortran/array-element.exp: Use f90, not f77.
	* gdb.fortran/complex.exp: Use f90, not f77.
	* gdb.fortran/derived-type.exp: Use f90, not f77.
	* gdb.fortran/library-module.exp: Use f90, not f77.
	* gdb.fortran/logical.exp: Use f90, not f77.
	* gdb.fortran/module.exp: Use f90, not f77.
	* gdb.fortran/multi-dim.exp: Use f90, not f77.
	* gdb.fortran/subarray.exp: Use f90, not f77.
This commit is contained in:
Tom Tromey 2011-06-29 17:50:47 +00:00
parent 39c4d40aa5
commit 0ecee54cfd
9 changed files with 22 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,15 @@
2011-06-29 Tom Tromey <tromey@redhat.com>
PR testsuite/12040:
* gdb.fortran/array-element.exp: Use f90, not f77.
* gdb.fortran/complex.exp: Use f90, not f77.
* gdb.fortran/derived-type.exp: Use f90, not f77.
* gdb.fortran/library-module.exp: Use f90, not f77.
* gdb.fortran/logical.exp: Use f90, not f77.
* gdb.fortran/module.exp: Use f90, not f77.
* gdb.fortran/multi-dim.exp: Use f90, not f77.
* gdb.fortran/subarray.exp: Use f90, not f77.
2011-06-29 Tom Tromey <tromey@redhat.com> 2011-06-29 Tom Tromey <tromey@redhat.com>
* gdb.fortran/charset.exp: New file. * gdb.fortran/charset.exp: New file.

2
gdb/testsuite/gdb.fortran/array-element.exp
View file

@ -29,7 +29,7 @@ set srcfile ${testfile}.f
set binfile ${objdir}/${subdir}/${testfile} set binfile ${objdir}/${subdir}/${testfile}
if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
executable {debug f77}] != ""} { executable {debug f90}] != ""} {
return -1 return -1
} }

2
gdb/testsuite/gdb.fortran/complex.exp
View file

@ -18,7 +18,7 @@ set srcfile ${testfile}.f
set binfile ${objdir}/${subdir}/${testfile} set binfile ${objdir}/${subdir}/${testfile}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
executable {debug f77 quiet}] != "" } { executable {debug f90 quiet}] != "" } {
untested "Couldn't compile ${srcfile}" untested "Couldn't compile ${srcfile}"
return -1 return -1
} }

2
gdb/testsuite/gdb.fortran/derived-type.exp
View file

@ -29,7 +29,7 @@ set srcfile ${testfile}.f90
set binfile ${objdir}/${subdir}/${testfile} set binfile ${objdir}/${subdir}/${testfile}
if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
executable {debug f77}] != ""} { executable {debug f90}] != ""} {
return -1 return -1
} }

4
gdb/testsuite/gdb.fortran/library-module.exp
View file

@ -25,7 +25,7 @@ if [get_compiler_info not-used] {
return -1 return -1
} }
if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$libfile {debug f77}] != "" } { if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$libfile {debug f90}] != "" } {
untested "Couldn't compile ${srclibfile}" untested "Couldn't compile ${srclibfile}"
return -1 return -1
} }
@ -34,7 +34,7 @@ if { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$li
# just for the linking phase (and not the source compilation phase). And any # just for the linking phase (and not the source compilation phase). And any
# warnings on ignored $libfile abort the process. # warnings on ignored $libfile abort the process.
if { [gdb_compile [list $srcdir/$subdir/$srcfile $objdir/$subdir/$libfile] $objdir/$subdir/$binfile executable {debug f77}] != "" } { if { [gdb_compile [list $srcdir/$subdir/$srcfile $objdir/$subdir/$libfile] $objdir/$subdir/$binfile executable {debug f90}] != "" } {
untested "Couldn't compile ${srcfile}" untested "Couldn't compile ${srcfile}"
return -1 return -1
} }

4
gdb/testsuite/gdb.fortran/logical.exp
View file

@ -2,7 +2,7 @@
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or # the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version. # (at your option) any later version.
# #
# This program is distributed in the hope that it will be useful, # This program is distributed in the hope that it will be useful,
@ -19,7 +19,7 @@
set test "logical" set test "logical"
set srcfile ${test}.f90 set srcfile ${test}.f90
if { [prepare_for_testing "${test}.exp" "${test}" "${srcfile}" {debug f77 quiet}] } { if { [prepare_for_testing "${test}.exp" "${test}" "${srcfile}" {debug f90 quiet}] } {
untested "Could not compile ${srcfile}." untested "Could not compile ${srcfile}."
return -1 return -1
} }

2
gdb/testsuite/gdb.fortran/module.exp
View file

@ -16,7 +16,7 @@
set testfile "module" set testfile "module"
set srcfile ${testfile}.f90 set srcfile ${testfile}.f90
if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f77}] } { if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f90}] } {
return -1 return -1
} }

2
gdb/testsuite/gdb.fortran/multi-dim.exp
View file

@ -20,7 +20,7 @@ if { [skip_fortran_tests] } { return -1 }
set testfile "multi-dim" set testfile "multi-dim"
set srcfile ${testfile}.f90 set srcfile ${testfile}.f90
if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f77}] } { if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}] } {
return -1 return -1
} }

2
gdb/testsuite/gdb.fortran/subarray.exp
View file

@ -29,7 +29,7 @@ set srcfile ${testfile}.f
set binfile ${objdir}/${subdir}/${testfile} set binfile ${objdir}/${subdir}/${testfile}
if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
executable {debug f77}] != ""} { executable {debug f90}] != ""} {
return -1 return -1
} }