Add skip_fortran_tests to more Fortran testcases

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.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 73d9de93011f38f530954604ebbb6a1c78387b2b..f22401b305b95f563ddba41cf092bc6d368dee69 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,23 @@
+2020-08-13  Pedro Alves  <pedro@palves.net>
+
+       * 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.
+
 2020-08-13  Pedro Alves  <pedro@palves.net>
 
        * gdb.ada/access_tagged_param.exp: Check skip_ada_tests.

diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp
index f1e754e1630598277c0d362e30a0d08225b00230..1faed2afb9d37b1a769fba9b57df6de11d9b4a62 100644 (file)
--- 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 8254fcf10a3eb602e6f646b4ec3947e7b366fe23..d2013e1d3e1eb7921bc6e93c83572edb7e04a6e2 100644 (file)
--- 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 161bbdd908156edc5222bca0d7449d3aa5626e10..6e22a255e6d9c24ac480c9b21b6476c796cdaf33 100644 (file)
--- 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 4a8251c44c6b4b66c13555b2196d44894b3b7690..72e6a3a0ee0f46a7469fc094e6d601bb6440f897 100644 (file)
--- 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 fcedb9579a931070f5c9bf38b27b613484d7a91e..14ddc04f8f0fc8303bc3e1fccab493e3cc7a09f8 100755 (executable)
--- 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 2ae0411cf12a15921953532fb791a4f6b91a858d..e8e1e850d0982039c7a66dede61375a5fd7aca70 100644 (file)
--- 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 b69636f600ca47ece345e3ce0c2642dd66a47b66..8a199d4acd0f7328b2a985c968958cb898bdedeb 100644 (file)
--- 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 3bf98db19704f2d4f082999a93a288225398fff9..093e107e51407b8073de9b0343c81a62f1059a20 100644 (file)
--- 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 d3fa595bea5696b43579a38ccc6cbba06e944848..bfc118491cd201a44c0c4d4e12fce7e76005d60f 100644 (file)
--- 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 07a4a5fc2e9d03157f1be9afda850c9a7c1f411b..192b58243a36ebbf4211b90b02df4a06e2ef657d 100644 (file)
--- 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 bbb81ea0c81899f00d56ac467a8b86c769177bc6..cc768a753b0420de89cdb48da8bf78951d3bef5a 100644 (file)
--- 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 d26b8c60f80eb797e34a159c146726a8f854a496..04296ac80c98f37b11dac0e9b49ea81960feefa5 100644 (file)
--- 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 f007ea3a786fd58fb686cd581d3861ed818c939e..925c583edcdd65565a9dcb662abc45c197374bba 100755 (executable)
--- 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 c3ed909a81e69f7c73a0978dfd3bd8d93ae68b79..99b8fd78f323eeaa7c2622c0470463eb10355b16 100644 (file)
--- 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 403e411cc29ce8e37b9fe35fd9c1ac1bcec468c8..cd446e1266f1daab150ac003d917468995b0c52a 100644 (file)
--- 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 fd923edf401eeb657dad91a06808ee367bf29963..b22d7dfc18d0116e28299f1113f4d59bd4edef1a 100644 (file)
--- 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 9a727fc30a0c5cf8a292fa8a0948e4f481765079..be0a2d47fdf19e0c8da76038c1a1adcd74a0d9ab 100644 (file)
--- 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