[ob/pushed 2/2] Add skip_fortran_tests to more Fortran testcases

Pedro Alves pedro@palves.net
Thu Aug 13 17:16:37 GMT 2020 

This adds missing skip_fortran_tests checks to Fortran testcases,
using the exact same pattern the existing files that do check it use.

gdb/testsuite/ChangeLog:

	* gdb.fortran/complex.exp: Check skip_fortran_tests.
	* gdb.fortran/library-module.exp: Likewise.
	* gdb.fortran/logical.exp: Likewise.
	* gdb.fortran/module.exp: Likewise.
	* gdb.fortran/print_type.exp: Likewise.
	* gdb.fortran/vla-alloc-assoc.exp: Likewise.
	* gdb.fortran/vla-datatypes.exp: Likewise.
	* gdb.fortran/vla-history.exp: Likewise.
	* gdb.fortran/vla-ptr-info.exp: Likewise.
	* gdb.fortran/vla-ptype-sub.exp: Likewise.
	* gdb.fortran/vla-ptype.exp: Likewise.
	* gdb.fortran/vla-sizeof.exp: Likewise.
	* gdb.fortran/vla-type.exp: Likewise.
	* gdb.fortran/vla-value-sub-arbitrary.exp: Likewise.
	* gdb.fortran/vla-value-sub-finish.exp: Likewise.
	* gdb.fortran/vla-value-sub.exp: Likewise.
	* gdb.fortran/vla-value.exp: Likewise.
---
 gdb/testsuite/gdb.fortran/complex.exp                 | 2 ++
 gdb/testsuite/gdb.fortran/library-module.exp          | 5 ++++-
 gdb/testsuite/gdb.fortran/logical.exp                 | 2 ++
 gdb/testsuite/gdb.fortran/module.exp                  | 2 ++
 gdb/testsuite/gdb.fortran/print_type.exp              | 2 ++
 gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp         | 2 ++
 gdb/testsuite/gdb.fortran/vla-datatypes.exp           | 2 ++
 gdb/testsuite/gdb.fortran/vla-history.exp             | 2 ++
 gdb/testsuite/gdb.fortran/vla-ptr-info.exp            | 2 ++
 gdb/testsuite/gdb.fortran/vla-ptype-sub.exp           | 2 ++
 gdb/testsuite/gdb.fortran/vla-ptype.exp               | 2 ++
 gdb/testsuite/gdb.fortran/vla-sizeof.exp              | 2 ++
 gdb/testsuite/gdb.fortran/vla-type.exp                | 2 ++
 gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp | 2 ++
 gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp    | 2 ++
 gdb/testsuite/gdb.fortran/vla-value-sub.exp           | 2 ++
 gdb/testsuite/gdb.fortran/vla-value.exp               | 2 ++
 17 files changed, 36 insertions(+), 1 deletion(-)

diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp
index f1e754e1630..1faed2afb9d 100644
--- a/gdb/testsuite/gdb.fortran/complex.exp
+++ b/gdb/testsuite/gdb.fortran/complex.exp
@@ -16,6 +16,8 @@
 standard_testfile .f90
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90 quiet}]} {
     return -1
 }
diff --git a/gdb/testsuite/gdb.fortran/library-module.exp b/gdb/testsuite/gdb.fortran/library-module.exp
index 8254fcf10a3..d2013e1d3e1 100644
--- a/gdb/testsuite/gdb.fortran/library-module.exp
+++ b/gdb/testsuite/gdb.fortran/library-module.exp
@@ -13,6 +13,10 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+load_lib fortran.exp
+
+if {[skip_fortran_tests]} { return -1 }
+
 standard_testfile library-module-main.f90 
 set srclibfile ${testfile}-lib.f90
 set libfile [standard_output_file ${testfile}-lib.so]
@@ -40,7 +44,6 @@ if  { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable [list debug f90
 clean_restart $testfile
 
 gdb_load_shlib $libfile
-load_lib fortran.exp
 
 if ![fortran_runto_main] then {
     perror "couldn't run to main"
diff --git a/gdb/testsuite/gdb.fortran/logical.exp b/gdb/testsuite/gdb.fortran/logical.exp
index 161bbdd9081..6e22a255e6d 100644
--- a/gdb/testsuite/gdb.fortran/logical.exp
+++ b/gdb/testsuite/gdb.fortran/logical.exp
@@ -18,6 +18,8 @@
 standard_testfile .f90
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90 quiet}]} {
     return -1
 }
diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp
index 4a8251c44c6..72e6a3a0ee0 100644
--- a/gdb/testsuite/gdb.fortran/module.exp
+++ b/gdb/testsuite/gdb.fortran/module.exp
@@ -15,6 +15,8 @@
 
 load_lib "fortran.exp"
 
+if {[skip_fortran_tests]} { return -1 }
+
 standard_testfile .f90
 
 if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}] } {
diff --git a/gdb/testsuite/gdb.fortran/print_type.exp b/gdb/testsuite/gdb.fortran/print_type.exp
index fcedb9579a9..14ddc04f8f0 100755
--- a/gdb/testsuite/gdb.fortran/print_type.exp
+++ b/gdb/testsuite/gdb.fortran/print_type.exp
@@ -19,6 +19,8 @@
 standard_testfile "pointers.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp b/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp
index 2ae0411cf12..e8e1e850d09 100644
--- a/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp
+++ b/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-datatypes.exp b/gdb/testsuite/gdb.fortran/vla-datatypes.exp
index b69636f600c..8a199d4acd0 100644
--- a/gdb/testsuite/gdb.fortran/vla-datatypes.exp
+++ b/gdb/testsuite/gdb.fortran/vla-datatypes.exp
@@ -16,6 +16,8 @@
 standard_testfile ".f90"
 load_lib "fortran.exp"
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-history.exp b/gdb/testsuite/gdb.fortran/vla-history.exp
index 3bf98db1970..093e107e514 100644
--- a/gdb/testsuite/gdb.fortran/vla-history.exp
+++ b/gdb/testsuite/gdb.fortran/vla-history.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-ptr-info.exp b/gdb/testsuite/gdb.fortran/vla-ptr-info.exp
index d3fa595bea5..bfc118491cd 100644
--- a/gdb/testsuite/gdb.fortran/vla-ptr-info.exp
+++ b/gdb/testsuite/gdb.fortran/vla-ptr-info.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp b/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp
index 07a4a5fc2e9..192b58243a3 100644
--- a/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp
+++ b/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla-sub.f90"
 load_lib "fortran.exp"
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-ptype.exp b/gdb/testsuite/gdb.fortran/vla-ptype.exp
index bbb81ea0c81..cc768a753b0 100644
--- a/gdb/testsuite/gdb.fortran/vla-ptype.exp
+++ b/gdb/testsuite/gdb.fortran/vla-ptype.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla.f90"
 load_lib "fortran.exp"
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-sizeof.exp b/gdb/testsuite/gdb.fortran/vla-sizeof.exp
index d26b8c60f80..04296ac80c9 100644
--- a/gdb/testsuite/gdb.fortran/vla-sizeof.exp
+++ b/gdb/testsuite/gdb.fortran/vla-sizeof.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-type.exp b/gdb/testsuite/gdb.fortran/vla-type.exp
index f007ea3a786..925c583edcd 100755
--- a/gdb/testsuite/gdb.fortran/vla-type.exp
+++ b/gdb/testsuite/gdb.fortran/vla-type.exp
@@ -16,6 +16,8 @@
 standard_testfile ".f90"
 load_lib "fortran.exp"
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
      {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp b/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp
index c3ed909a81e..99b8fd78f32 100644
--- a/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla-sub.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp b/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp
index 403e411cc29..cd446e1266f 100644
--- a/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla-sub.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub.exp b/gdb/testsuite/gdb.fortran/vla-value-sub.exp
index fd923edf401..b22d7dfc18d 100644
--- a/gdb/testsuite/gdb.fortran/vla-value-sub.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value-sub.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla-sub.f90"
 load_lib fortran.exp
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
     {debug f90 quiet}] } {
     return -1
diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp b/gdb/testsuite/gdb.fortran/vla-value.exp
index 9a727fc30a0..be0a2d47fdf 100644
--- a/gdb/testsuite/gdb.fortran/vla-value.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value.exp
@@ -16,6 +16,8 @@
 standard_testfile "vla.f90"
 load_lib "fortran.exp"
 
+if {[skip_fortran_tests]} { return -1 }
+
 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
      {debug f90 quiet}] } {
     return -1
-- 
2.14.5

More information about the Gdb-patches mailing list