From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2126) id BA0273858C39; Fri, 13 Jan 2023 20:39:10 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org BA0273858C39 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=sourceware.org; s=default; t=1673642350; bh=o6agVWcX0OEsDdsheLhAX8SYBBHE1Ju5HZJuD2VId5o=; h=From:To:Subject:Date:From; b=GRF5eoWEuWbk/B7HI+UI2p93aM5ErczwZ64pmlmFxwaAghSmR0uXyyLw9rZKEtiph NCH8gSL4Rz43Q62q+k+oBQFHR/vWJKdV64//QlSfe2hjCFhui7JrKQXoq+euFYhKbb 90O5NtcfxpOSqd54eaLVW5sKcvOwfSXYqRAVm8OQ= Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable From: Tom Tromey To: gdb-cvs@sourceware.org Subject: [binutils-gdb] Rename to allow_fortran_tests X-Act-Checkin: binutils-gdb X-Git-Author: Tom Tromey X-Git-Refname: refs/heads/master X-Git-Oldrev: f3864a5bc64c926b469199b24ab750ec375d460b X-Git-Newrev: 57b7402d206a215ef4689ed402467bbfc82375f3 Message-Id: <20230113203910.BA0273858C39@sourceware.org> Date: Fri, 13 Jan 2023 20:39:10 +0000 (GMT) List-Id: https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3D57b7402d206a= 215ef4689ed402467bbfc82375f3 commit 57b7402d206a215ef4689ed402467bbfc82375f3 Author: Tom Tromey Date: Sun Jan 8 10:52:25 2023 -0700 Rename to allow_fortran_tests =20 This changes skip_fortran_tests to invert the sense, and renames it to allow_fortran_tests. Diff: --- gdb/testsuite/gdb.dwarf2/dw2-common-block.exp | 2 +- gdb/testsuite/gdb.fortran/allocated.exp | 2 +- gdb/testsuite/gdb.fortran/array-bounds-high.exp | 2 +- gdb/testsuite/gdb.fortran/array-bounds.exp | 2 +- gdb/testsuite/gdb.fortran/array-element.exp | 2 +- gdb/testsuite/gdb.fortran/array-indices.exp | 2 +- gdb/testsuite/gdb.fortran/array-no-bounds.exp | 2 +- gdb/testsuite/gdb.fortran/array-repeat.exp | 2 +- gdb/testsuite/gdb.fortran/array-slices-bad.exp | 2 +- gdb/testsuite/gdb.fortran/array-slices-sub-slices.exp | 2 +- gdb/testsuite/gdb.fortran/array-slices.exp | 2 +- gdb/testsuite/gdb.fortran/associated.exp | 2 +- gdb/testsuite/gdb.fortran/assumedrank.exp | 2 +- gdb/testsuite/gdb.fortran/block-data.exp | 2 +- gdb/testsuite/gdb.fortran/call-no-debug.exp | 2 +- gdb/testsuite/gdb.fortran/charset.exp | 2 +- gdb/testsuite/gdb.fortran/class-allocatable-array.exp | 2 +- gdb/testsuite/gdb.fortran/common-block.exp | 2 +- gdb/testsuite/gdb.fortran/completion.exp | 2 +- gdb/testsuite/gdb.fortran/complex.exp | 2 +- gdb/testsuite/gdb.fortran/debug-expr.exp | 2 +- gdb/testsuite/gdb.fortran/derived-type-function.exp | 2 +- gdb/testsuite/gdb.fortran/derived-type-striding.exp | 2 +- gdb/testsuite/gdb.fortran/derived-type.exp | 2 +- gdb/testsuite/gdb.fortran/dot-ops.exp | 2 +- gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp | 2 +- gdb/testsuite/gdb.fortran/empty-string.exp | 2 +- gdb/testsuite/gdb.fortran/exprs.exp | 2 +- gdb/testsuite/gdb.fortran/function-calls.exp | 2 +- gdb/testsuite/gdb.fortran/info-modules.exp | 2 +- gdb/testsuite/gdb.fortran/info-types.exp | 2 +- gdb/testsuite/gdb.fortran/intrinsics.exp | 2 +- gdb/testsuite/gdb.fortran/lbound-ubound.exp | 2 +- gdb/testsuite/gdb.fortran/library-module.exp | 2 +- gdb/testsuite/gdb.fortran/logical.exp | 2 +- gdb/testsuite/gdb.fortran/max-depth.exp | 2 +- gdb/testsuite/gdb.fortran/mixed-lang-stack.exp | 2 +- gdb/testsuite/gdb.fortran/module.exp | 2 +- gdb/testsuite/gdb.fortran/multi-dim.exp | 2 +- gdb/testsuite/gdb.fortran/namelist.exp | 2 +- gdb/testsuite/gdb.fortran/nested-funcs-2.exp | 2 +- gdb/testsuite/gdb.fortran/nested-funcs.exp | 2 +- gdb/testsuite/gdb.fortran/oop_extend_type.exp | 2 +- gdb/testsuite/gdb.fortran/pointer-to-pointer.exp | 2 +- gdb/testsuite/gdb.fortran/print-formatted.exp | 2 +- gdb/testsuite/gdb.fortran/print_type.exp | 2 +- gdb/testsuite/gdb.fortran/printing-types.exp | 2 +- gdb/testsuite/gdb.fortran/ptr-indentation.exp | 2 +- gdb/testsuite/gdb.fortran/ptype-on-functions.exp | 2 +- gdb/testsuite/gdb.fortran/rank.exp | 2 +- gdb/testsuite/gdb.fortran/shape.exp | 2 +- gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp | 2 +- gdb/testsuite/gdb.fortran/size.exp | 2 +- gdb/testsuite/gdb.fortran/string-types.exp | 2 +- gdb/testsuite/gdb.fortran/subarray.exp | 2 +- gdb/testsuite/gdb.fortran/type-kinds.exp | 2 +- gdb/testsuite/gdb.fortran/types.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 +- gdb/testsuite/gdb.fortran/whatis_type.exp | 2 +- gdb/testsuite/gdb.mi/mi-fortran-modules.exp | 2 +- gdb/testsuite/gdb.mi/mi-var-child-f.exp | 2 +- gdb/testsuite/gdb.mi/mi-vla-fortran.exp | 2 +- gdb/testsuite/lib/gdb.exp | 6 +++--- 74 files changed, 76 insertions(+), 76 deletions(-) diff --git a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp b/gdb/testsuite/= gdb.dwarf2/dw2-common-block.exp index 8f6c0aa75dc..7ac4ecb8600 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp @@ -24,7 +24,7 @@ if {![istarget x86_64-*] || ![is_lp64_target]} { } =20 # It requires fortran. -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .S =20 diff --git a/gdb/testsuite/gdb.fortran/allocated.exp b/gdb/testsuite/gdb.fo= rtran/allocated.exp index d4aba5e2585..1dbd4526047 100644 --- a/gdb/testsuite/gdb.fortran/allocated.exp +++ b/gdb/testsuite/gdb.fortran/allocated.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of ALLOCATED keyword. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/array-bounds-high.exp b/gdb/testsuit= e/gdb.fortran/array-bounds-high.exp index 25023ebace5..1fbed59a6d2 100644 --- a/gdb/testsuite/gdb.fortran/array-bounds-high.exp +++ b/gdb/testsuite/gdb.fortran/array-bounds-high.exp @@ -16,7 +16,7 @@ # This file is part of the gdb testsuite. It contains test to ensure that # array bounds accept LONGEST. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 set testfile "array-bounds-high" standard_testfile .f90 diff --git a/gdb/testsuite/gdb.fortran/array-bounds.exp b/gdb/testsuite/gdb= .fortran/array-bounds.exp index 0903d9ed7a0..e3f2603a118 100644 --- a/gdb/testsuite/gdb.fortran/array-bounds.exp +++ b/gdb/testsuite/gdb.fortran/array-bounds.exp @@ -16,7 +16,7 @@ # This file is part of the gdb testsuite. It contains test to ensure that # array bounds accept LONGEST. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 set testfile "array-bounds" standard_testfile .f90 diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gd= b.fortran/array-element.exp index 1902329fc94..1912dfd8076 100644 --- a/gdb/testsuite/gdb.fortran/array-element.exp +++ b/gdb/testsuite/gdb.fortran/array-element.exp @@ -18,7 +18,7 @@ # This file is part of the gdb testsuite. It contains test for printing # the elements of an array which is passed as pointer to a subroutine. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f =20 diff --git a/gdb/testsuite/gdb.fortran/array-indices.exp b/gdb/testsuite/gd= b.fortran/array-indices.exp index 299bf3417b6..0624e637e1f 100644 --- a/gdb/testsuite/gdb.fortran/array-indices.exp +++ b/gdb/testsuite/gdb.fortran/array-indices.exp @@ -15,7 +15,7 @@ =20 # Test the printing of element indices in Fortran arrays. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 load_lib fortran.exp =20 diff --git a/gdb/testsuite/gdb.fortran/array-no-bounds.exp b/gdb/testsuite/= gdb.fortran/array-no-bounds.exp index 126cea76ccb..236a62d3f26 100644 --- a/gdb/testsuite/gdb.fortran/array-no-bounds.exp +++ b/gdb/testsuite/gdb.fortran/array-no-bounds.exp @@ -16,7 +16,7 @@ # This file is part of the gdb testsuite. It contains test to ensure that # array bounds accept LONGEST. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/array-repeat.exp b/gdb/testsuite/gdb= .fortran/array-repeat.exp index 90b48a398d6..0fe3c7f5ed8 100644 --- a/gdb/testsuite/gdb.fortran/array-repeat.exp +++ b/gdb/testsuite/gdb.fortran/array-repeat.exp @@ -15,7 +15,7 @@ =20 # Test the detection and printing of repeated elements in Fortran arrays. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 load_lib fortran.exp =20 diff --git a/gdb/testsuite/gdb.fortran/array-slices-bad.exp b/gdb/testsuite= /gdb.fortran/array-slices-bad.exp index f49154b9c6a..3f8e4434e22 100644 --- a/gdb/testsuite/gdb.fortran/array-slices-bad.exp +++ b/gdb/testsuite/gdb.fortran/array-slices-bad.exp @@ -15,7 +15,7 @@ =20 # Test invalid element and slice array accesses. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/array-slices-sub-slices.exp b/gdb/te= stsuite/gdb.fortran/array-slices-sub-slices.exp index 832aefc0954..10778b1543f 100644 --- a/gdb/testsuite/gdb.fortran/array-slices-sub-slices.exp +++ b/gdb/testsuite/gdb.fortran/array-slices-sub-slices.exp @@ -15,7 +15,7 @@ =20 # Create a slice of an array, then take a slice of that slice. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/array-slices.exp b/gdb/testsuite/gdb= .fortran/array-slices.exp index 8fab57e13e7..56bed15e965 100644 --- a/gdb/testsuite/gdb.fortran/array-slices.exp +++ b/gdb/testsuite/gdb.fortran/array-slices.exp @@ -33,7 +33,7 @@ # debug information) matches the size of the slice manually extracted # by GDB. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 # This test relies on output from the inferior. if [target_info exists gdb,noinferiorio] { diff --git a/gdb/testsuite/gdb.fortran/associated.exp b/gdb/testsuite/gdb.f= ortran/associated.exp index 1acc40027c0..5dcce03cfcf 100644 --- a/gdb/testsuite/gdb.fortran/associated.exp +++ b/gdb/testsuite/gdb.fortran/associated.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of ASSOCIATED keyword. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/assumedrank.exp b/gdb/testsuite/gdb.= fortran/assumedrank.exp index a1e59903014..6bc5dccbb5e 100644 --- a/gdb/testsuite/gdb.fortran/assumedrank.exp +++ b/gdb/testsuite/gdb.fortran/assumedrank.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of ASSUMED RANK arrays. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/block-data.exp b/gdb/testsuite/gdb.f= ortran/block-data.exp index 6f51fce3ddc..9b832c9718c 100644 --- a/gdb/testsuite/gdb.fortran/block-data.exp +++ b/gdb/testsuite/gdb.fortran/block-data.exp @@ -21,7 +21,7 @@ # outputs nameless DW_TAG_module, unlike with gfortran which just # doesn't emit DW_TAG_module in this case. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/call-no-debug.exp b/gdb/testsuite/gd= b.fortran/call-no-debug.exp index d17eb4a5db3..fe6c4f85a9a 100644 --- a/gdb/testsuite/gdb.fortran/call-no-debug.exp +++ b/gdb/testsuite/gdb.fortran/call-no-debug.exp @@ -16,7 +16,7 @@ # Test calling Fortran functions that are compiled without debug # information. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile call-no-debug-prog.f90 call-no-debug-func.f90 load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/charset.exp b/gdb/testsuite/gdb.fort= ran/charset.exp index 1a860964782..68ae7d8af8e 100644 --- a/gdb/testsuite/gdb.fortran/charset.exp +++ b/gdb/testsuite/gdb.fortran/charset.exp @@ -16,7 +16,7 @@ # This file is part of the gdb testsuite. It contains tests for evaluating # Fortran subarray expression. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/class-allocatable-array.exp b/gdb/te= stsuite/gdb.fortran/class-allocatable-array.exp index 76a848c7711..86a143dfdca 100644 --- a/gdb/testsuite/gdb.fortran/class-allocatable-array.exp +++ b/gdb/testsuite/gdb.fortran/class-allocatable-array.exp @@ -16,7 +16,7 @@ # Test that GDB can print an allocatable array that is a data field # within a class like type. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/common-block.exp b/gdb/testsuite/gdb= .fortran/common-block.exp index b551bbd428b..aaa006860d7 100644 --- a/gdb/testsuite/gdb.fortran/common-block.exp +++ b/gdb/testsuite/gdb.fortran/common-block.exp @@ -15,7 +15,7 @@ =20 # This file was written by Jan Kratochvil . =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/completion.exp b/gdb/testsuite/gdb.f= ortran/completion.exp index 4ae6f9ae792..b6c7e3278ca 100644 --- a/gdb/testsuite/gdb.fortran/completion.exp +++ b/gdb/testsuite/gdb.fortran/completion.exp @@ -15,7 +15,7 @@ =20 # Test tab completion of Fortran type field names. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fort= ran/complex.exp index 708b73c3ca4..f7e0b89bb91 100644 --- a/gdb/testsuite/gdb.fortran/complex.exp +++ b/gdb/testsuite/gdb.fortran/complex.exp @@ -16,7 +16,7 @@ standard_testfile .f90 load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90= quiet}]} { return -1 diff --git a/gdb/testsuite/gdb.fortran/debug-expr.exp b/gdb/testsuite/gdb.f= ortran/debug-expr.exp index 2a45214d89f..cb141f5758e 100644 --- a/gdb/testsuite/gdb.fortran/debug-expr.exp +++ b/gdb/testsuite/gdb.fortran/debug-expr.exp @@ -15,7 +15,7 @@ =20 # Test "set debug expr 1" on Fortran expressions. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 # Test relies on checking gdb debug output. Do not run if gdb debug is # enabled as any debug will be redirected to the log. diff --git a/gdb/testsuite/gdb.fortran/derived-type-function.exp b/gdb/test= suite/gdb.fortran/derived-type-function.exp index d7fa4a0378b..be5d81fb507 100644 --- a/gdb/testsuite/gdb.fortran/derived-type-function.exp +++ b/gdb/testsuite/gdb.fortran/derived-type-function.exp @@ -18,7 +18,7 @@ # This file is part of the gdb testsuite. It contains tests for type-prin= ting # and value-printing Fortran derived types having also functions. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/derived-type-striding.exp b/gdb/test= suite/gdb.fortran/derived-type-striding.exp index 9a9a3ca8f3f..b7ae48717ff 100644 --- a/gdb/testsuite/gdb.fortran/derived-type-striding.exp +++ b/gdb/testsuite/gdb.fortran/derived-type-striding.exp @@ -16,7 +16,7 @@ # Print some single dimensional integer arrays that will have a byte # stride in the debug information. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" =20 diff --git a/gdb/testsuite/gdb.fortran/derived-type.exp b/gdb/testsuite/gdb= .fortran/derived-type.exp index be7c1937d78..9301e72c004 100644 --- a/gdb/testsuite/gdb.fortran/derived-type.exp +++ b/gdb/testsuite/gdb.fortran/derived-type.exp @@ -18,7 +18,7 @@ # This file is part of the gdb testsuite. It contains tests for type-prin= ting # and value-printing Fortran derived types. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/dot-ops.exp b/gdb/testsuite/gdb.fort= ran/dot-ops.exp index 049008f90e0..3f8f5abb54c 100644 --- a/gdb/testsuite/gdb.fortran/dot-ops.exp +++ b/gdb/testsuite/gdb.fortran/dot-ops.exp @@ -18,7 +18,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 proc test_dot_operations {} { =20 diff --git a/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp b/gdb/tests= uite/gdb.fortran/dynamic-ptype-whatis.exp index 8fb0a6c6cb9..4b22b043540 100644 --- a/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp +++ b/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp @@ -16,7 +16,7 @@ # Test using whatis and ptype on different configurations of dynamic # types. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/empty-string.exp b/gdb/testsuite/gdb= .fortran/empty-string.exp index 07937741f15..f667ac68b79 100644 --- a/gdb/testsuite/gdb.fortran/empty-string.exp +++ b/gdb/testsuite/gdb.fortran/empty-string.exp @@ -15,7 +15,7 @@ =20 # Test printing of an empty Fortran string. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortra= n/exprs.exp index 44773cc3a3b..30f0aa691db 100644 --- a/gdb/testsuite/gdb.fortran/exprs.exp +++ b/gdb/testsuite/gdb.fortran/exprs.exp @@ -18,7 +18,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 proc test_integer_literals_accepted {} { global gdb_prompt diff --git a/gdb/testsuite/gdb.fortran/function-calls.exp b/gdb/testsuite/g= db.fortran/function-calls.exp index ef5e4e03b62..f9a1efc241f 100644 --- a/gdb/testsuite/gdb.fortran/function-calls.exp +++ b/gdb/testsuite/gdb.fortran/function-calls.exp @@ -16,7 +16,7 @@ # Exercise passing and returning arguments in Fortran. This test case # is based on the GNU Fortran Argument passing conventions. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" =20 diff --git a/gdb/testsuite/gdb.fortran/info-modules.exp b/gdb/testsuite/gdb= .fortran/info-modules.exp index 2992e9f2fd1..f199034ff3e 100644 --- a/gdb/testsuite/gdb.fortran/info-modules.exp +++ b/gdb/testsuite/gdb.fortran/info-modules.exp @@ -19,7 +19,7 @@ load_lib "fortran.exp" load_lib "sym-info-cmds.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile info-types.f90 info-types-2.f90 =20 diff --git a/gdb/testsuite/gdb.fortran/info-types.exp b/gdb/testsuite/gdb.f= ortran/info-types.exp index 565c9cf5190..98fb812dd8b 100644 --- a/gdb/testsuite/gdb.fortran/info-types.exp +++ b/gdb/testsuite/gdb.fortran/info-types.exp @@ -18,7 +18,7 @@ load_lib "fortran.exp" load_lib "sym-info-cmds.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile info-types.f90 info-types-2.f90 =20 diff --git a/gdb/testsuite/gdb.fortran/intrinsics.exp b/gdb/testsuite/gdb.f= ortran/intrinsics.exp index 460f242e137..a61df31328e 100644 --- a/gdb/testsuite/gdb.fortran/intrinsics.exp +++ b/gdb/testsuite/gdb.fortran/intrinsics.exp @@ -17,7 +17,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 =20 diff --git a/gdb/testsuite/gdb.fortran/lbound-ubound.exp b/gdb/testsuite/gd= b.fortran/lbound-ubound.exp index 563d4b12024..bb652a9223c 100644 --- a/gdb/testsuite/gdb.fortran/lbound-ubound.exp +++ b/gdb/testsuite/gdb.fortran/lbound-ubound.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of LBOUND and UBOUND. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".F90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/library-module.exp b/gdb/testsuite/g= db.fortran/library-module.exp index 60a37a46361..1721b9c2810 100644 --- a/gdb/testsuite/gdb.fortran/library-module.exp +++ b/gdb/testsuite/gdb.fortran/library-module.exp @@ -15,7 +15,7 @@ =20 load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile library-module-main.f90=20 set srclibfile ${testfile}-lib.f90 diff --git a/gdb/testsuite/gdb.fortran/logical.exp b/gdb/testsuite/gdb.fort= ran/logical.exp index 91ef4bc15be..28dda5a15eb 100644 --- a/gdb/testsuite/gdb.fortran/logical.exp +++ b/gdb/testsuite/gdb.fortran/logical.exp @@ -18,7 +18,7 @@ standard_testfile .f90 load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90= quiet}]} { return -1 diff --git a/gdb/testsuite/gdb.fortran/max-depth.exp b/gdb/testsuite/gdb.fo= rtran/max-depth.exp index bbb3b2a21ed..49f5b869646 100644 --- a/gdb/testsuite/gdb.fortran/max-depth.exp +++ b/gdb/testsuite/gdb.fortran/max-depth.exp @@ -18,7 +18,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 =20 diff --git a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp b/gdb/testsuite= /gdb.fortran/mixed-lang-stack.exp index a1614554556..6ab3f8adeba 100644 --- a/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp +++ b/gdb/testsuite/gdb.fortran/mixed-lang-stack.exp @@ -23,7 +23,7 @@ # each case to ensure that trying to print objects or types from one # language, while GDB's language is set to another, doesn't crash GDB. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile mixed-lang-stack.c mixed-lang-stack.cpp mixed-lang-stack= .f90 =20 diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortr= an/module.exp index 8c7e9957f14..54c807d3496 100644 --- a/gdb/testsuite/gdb.fortran/module.exp +++ b/gdb/testsuite/gdb.fortran/module.exp @@ -15,7 +15,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 =20 diff --git a/gdb/testsuite/gdb.fortran/multi-dim.exp b/gdb/testsuite/gdb.fo= rtran/multi-dim.exp index 5646471e863..1aab841d58a 100644 --- a/gdb/testsuite/gdb.fortran/multi-dim.exp +++ b/gdb/testsuite/gdb.fortran/multi-dim.exp @@ -16,7 +16,7 @@ # This file is part of the gdb testsuite. It contains tests for evaluating # Fortran subarray expression. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/namelist.exp b/gdb/testsuite/gdb.for= tran/namelist.exp index bf51e946292..fceddb10159 100644 --- a/gdb/testsuite/gdb.fortran/namelist.exp +++ b/gdb/testsuite/gdb.fortran/namelist.exp @@ -16,7 +16,7 @@ # This file is part of the gdb testsuite. It contains tests for fortran # namelist. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp b/gdb/testsuite/g= db.fortran/nested-funcs-2.exp index 344745453cd..8c3b61aa161 100644 --- a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp +++ b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp @@ -15,7 +15,7 @@ =20 # Further testing of placing breakpoints in nested subroutines. =20 -require !skip_fortran_tests +require allow_fortran_tests load_lib "fortran.exp" =20 standard_testfile ".f90" diff --git a/gdb/testsuite/gdb.fortran/nested-funcs.exp b/gdb/testsuite/gdb= .fortran/nested-funcs.exp index bf8915a2f38..9f11d74bff1 100755 --- a/gdb/testsuite/gdb.fortran/nested-funcs.exp +++ b/gdb/testsuite/gdb.fortran/nested-funcs.exp @@ -16,7 +16,7 @@ # This testcase is supposed to test DWARF static link which is usually # used together with nested functions. =20 =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/oop_extend_type.exp b/gdb/testsuite/= gdb.fortran/oop_extend_type.exp index 1ffa5a39fc3..3be534df0b6 100755 --- a/gdb/testsuite/gdb.fortran/oop_extend_type.exp +++ b/gdb/testsuite/gdb.fortran/oop_extend_type.exp @@ -16,7 +16,7 @@ standard_testfile ".f90" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp b/gdb/testsui= te/gdb.fortran/pointer-to-pointer.exp index a37ab3fedb1..0fd5fb0996f 100644 --- a/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp +++ b/gdb/testsuite/gdb.fortran/pointer-to-pointer.exp @@ -15,7 +15,7 @@ =20 # Test for GDB printing a pointer to a type containing a buffer. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/print-formatted.exp b/gdb/testsuite/= gdb.fortran/print-formatted.exp index 9d552afcc61..0f39a760072 100644 --- a/gdb/testsuite/gdb.fortran/print-formatted.exp +++ b/gdb/testsuite/gdb.fortran/print-formatted.exp @@ -15,7 +15,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 =20 diff --git a/gdb/testsuite/gdb.fortran/print_type.exp b/gdb/testsuite/gdb.f= ortran/print_type.exp index 964b69ef948..b1a663f4a0c 100755 --- a/gdb/testsuite/gdb.fortran/print_type.exp +++ b/gdb/testsuite/gdb.fortran/print_type.exp @@ -19,7 +19,7 @@ standard_testfile "pointers.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/printing-types.exp b/gdb/testsuite/g= db.fortran/printing-types.exp index 82ad7b753e4..efd22a41790 100644 --- a/gdb/testsuite/gdb.fortran/printing-types.exp +++ b/gdb/testsuite/gdb.fortran/printing-types.exp @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/ptr-indentation.exp b/gdb/testsuite/= gdb.fortran/ptr-indentation.exp index c420ccdc124..993adf50a73 100644 --- a/gdb/testsuite/gdb.fortran/ptr-indentation.exp +++ b/gdb/testsuite/gdb.fortran/ptr-indentation.exp @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp b/gdb/testsui= te/gdb.fortran/ptype-on-functions.exp index e52c70fb2a9..479316a6247 100644 --- a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp +++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp @@ -15,7 +15,7 @@ =20 # This file contains a test for printing the types of functions. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.fortran/rank.exp b/gdb/testsuite/gdb.fortran= /rank.exp index e3e055b112f..eb8af4e47c5 100644 --- a/gdb/testsuite/gdb.fortran/rank.exp +++ b/gdb/testsuite/gdb.fortran/rank.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of RANK keyword. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/shape.exp b/gdb/testsuite/gdb.fortra= n/shape.exp index 2608e74946c..7320b184f9d 100644 --- a/gdb/testsuite/gdb.fortran/shape.exp +++ b/gdb/testsuite/gdb.fortran/shape.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of SHAPE keyword. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp b/gd= b/testsuite/gdb.fortran/short-circuit-argument-list.exp index b7aac47c6fe..66ab33a81f6 100644 --- a/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp +++ b/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp @@ -17,7 +17,7 @@ # calls and substring operations that are to be skipped due to short # circuiting. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" =20 diff --git a/gdb/testsuite/gdb.fortran/size.exp b/gdb/testsuite/gdb.fortran= /size.exp index e028455fc63..0a3974325a3 100644 --- a/gdb/testsuite/gdb.fortran/size.exp +++ b/gdb/testsuite/gdb.fortran/size.exp @@ -15,7 +15,7 @@ =20 # Testing GDB's implementation of SIZE keyword. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile ".f90" load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/string-types.exp b/gdb/testsuite/gdb= .fortran/string-types.exp index f553fe592f9..3114fbaac78 100644 --- a/gdb/testsuite/gdb.fortran/string-types.exp +++ b/gdb/testsuite/gdb.fortran/string-types.exp @@ -19,7 +19,7 @@ standard_testfile .f90 load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if {[prepare_for_testing "failed to prepare" $testfile $srcfile \ {debug f90 quiet}]} { diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.for= tran/subarray.exp index bc3f33e5aae..7bdc48d6122 100644 --- a/gdb/testsuite/gdb.fortran/subarray.exp +++ b/gdb/testsuite/gdb.fortran/subarray.exp @@ -18,7 +18,7 @@ # This file is part of the gdb testsuite. It contains tests for evaluating # Fortran subarray expression. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile .f load_lib fortran.exp diff --git a/gdb/testsuite/gdb.fortran/type-kinds.exp b/gdb/testsuite/gdb.f= ortran/type-kinds.exp index bf2609b3fae..af4670b7c63 100644 --- a/gdb/testsuite/gdb.fortran/type-kinds.exp +++ b/gdb/testsuite/gdb.fortran/type-kinds.exp @@ -19,7 +19,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 # Cast the value 1 to the type 'BASE_TYPE (kind=3DTYPE_KIND)'. The # expected result of the cast is CAST_RESULT, and the size of the diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortra= n/types.exp index dfe9518ed7e..aaa6962c37c 100644 --- a/gdb/testsuite/gdb.fortran/types.exp +++ b/gdb/testsuite/gdb.fortran/types.exp @@ -18,7 +18,7 @@ =20 load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 proc test_integer_literal_types_accepted {} { global gdb_prompt diff --git a/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp b/gdb/testsuite/= gdb.fortran/vla-alloc-assoc.exp index 9025df0d907..0b00db61c17 100644 --- a/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp +++ b/gdb/testsuite/gdb.fortran/vla-alloc-assoc.exp @@ -16,7 +16,7 @@ standard_testfile "vla.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-datatypes.exp b/gdb/testsuite/gd= b.fortran/vla-datatypes.exp index dfa3fd626ff..dcc50f6f3c1 100644 --- a/gdb/testsuite/gdb.fortran/vla-datatypes.exp +++ b/gdb/testsuite/gdb.fortran/vla-datatypes.exp @@ -16,7 +16,7 @@ standard_testfile ".f90" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-history.exp b/gdb/testsuite/gdb.= fortran/vla-history.exp index c95125c66f3..146c510bfe2 100644 --- a/gdb/testsuite/gdb.fortran/vla-history.exp +++ b/gdb/testsuite/gdb.fortran/vla-history.exp @@ -16,7 +16,7 @@ standard_testfile "vla.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-ptr-info.exp b/gdb/testsuite/gdb= .fortran/vla-ptr-info.exp index 3d864bc87f8..2c7a2282ae3 100644 --- a/gdb/testsuite/gdb.fortran/vla-ptr-info.exp +++ b/gdb/testsuite/gdb.fortran/vla-ptr-info.exp @@ -16,7 +16,7 @@ standard_testfile "vla.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp b/gdb/testsuite/gd= b.fortran/vla-ptype-sub.exp index 2b3355c55b7..9caa7313624 100644 --- a/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp +++ b/gdb/testsuite/gdb.fortran/vla-ptype-sub.exp @@ -16,7 +16,7 @@ standard_testfile "vla-sub.f90" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-ptype.exp b/gdb/testsuite/gdb.fo= rtran/vla-ptype.exp index 798c0d5c58c..4a7e05e20cb 100644 --- a/gdb/testsuite/gdb.fortran/vla-ptype.exp +++ b/gdb/testsuite/gdb.fortran/vla-ptype.exp @@ -16,7 +16,7 @@ standard_testfile "vla.f90" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-sizeof.exp b/gdb/testsuite/gdb.f= ortran/vla-sizeof.exp index 8344401da49..c1c1c225ca4 100644 --- a/gdb/testsuite/gdb.fortran/vla-sizeof.exp +++ b/gdb/testsuite/gdb.fortran/vla-sizeof.exp @@ -16,7 +16,7 @@ standard_testfile "vla.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-type.exp b/gdb/testsuite/gdb.for= tran/vla-type.exp index 1a4d6f430cb..5a60cdff2f3 100755 --- a/gdb/testsuite/gdb.fortran/vla-type.exp +++ b/gdb/testsuite/gdb.fortran/vla-type.exp @@ -16,7 +16,7 @@ standard_testfile ".f90" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp b/gdb/te= stsuite/gdb.fortran/vla-value-sub-arbitrary.exp index f836f05df8c..c850a9dd1b5 100644 --- a/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp +++ b/gdb/testsuite/gdb.fortran/vla-value-sub-arbitrary.exp @@ -16,7 +16,7 @@ standard_testfile "vla-sub.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp b/gdb/tests= uite/gdb.fortran/vla-value-sub-finish.exp index 27ddf3b58a5..390e5d9597c 100644 --- a/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp +++ b/gdb/testsuite/gdb.fortran/vla-value-sub-finish.exp @@ -16,7 +16,7 @@ standard_testfile "vla-sub.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-value-sub.exp b/gdb/testsuite/gd= b.fortran/vla-value-sub.exp index 4785afb7799..f62e5685acf 100644 --- a/gdb/testsuite/gdb.fortran/vla-value-sub.exp +++ b/gdb/testsuite/gdb.fortran/vla-value-sub.exp @@ -16,7 +16,7 @@ standard_testfile "vla-sub.f90" load_lib fortran.exp =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp b/gdb/testsuite/gdb.fo= rtran/vla-value.exp index ec5b6250a9b..b7ed1b440b9 100644 --- a/gdb/testsuite/gdb.fortran/vla-value.exp +++ b/gdb/testsuite/gdb.fortran/vla-value.exp @@ -16,7 +16,7 @@ standard_testfile "vla.f90" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \ {debug f90 quiet}] } { diff --git a/gdb/testsuite/gdb.fortran/whatis_type.exp b/gdb/testsuite/gdb.= fortran/whatis_type.exp index 18c2da5e9ea..fd1b746ebd1 100644 --- a/gdb/testsuite/gdb.fortran/whatis_type.exp +++ b/gdb/testsuite/gdb.fortran/whatis_type.exp @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . =20 -require !skip_fortran_tests +require allow_fortran_tests =20 standard_testfile type.f90 load_lib "fortran.exp" diff --git a/gdb/testsuite/gdb.mi/mi-fortran-modules.exp b/gdb/testsuite/gd= b.mi/mi-fortran-modules.exp index 676408bb1db..626deffe133 100644 --- a/gdb/testsuite/gdb.mi/mi-fortran-modules.exp +++ b/gdb/testsuite/gdb.mi/mi-fortran-modules.exp @@ -15,7 +15,7 @@ =20 # Test -symbol-info-modules, listing Fortran modules. =20 -require !skip_fortran_tests +require allow_fortran_tests =20 load_lib fortran.exp load_lib mi-support.exp diff --git a/gdb/testsuite/gdb.mi/mi-var-child-f.exp b/gdb/testsuite/gdb.mi= /mi-var-child-f.exp index c5294156159..7723dbc574f 100644 --- a/gdb/testsuite/gdb.mi/mi-var-child-f.exp +++ b/gdb/testsuite/gdb.mi/mi-var-child-f.exp @@ -19,7 +19,7 @@ load_lib mi-support.exp set MIFLAGS "-i=3Dmi" load_lib "fortran.exp" =20 -require !skip_fortran_tests +require allow_fortran_tests =20 gdb_exit if [mi_gdb_start] { diff --git a/gdb/testsuite/gdb.mi/mi-vla-fortran.exp b/gdb/testsuite/gdb.mi= /mi-vla-fortran.exp index 1d6c91dc9b3..9020f89e117 100644 --- a/gdb/testsuite/gdb.mi/mi-vla-fortran.exp +++ b/gdb/testsuite/gdb.mi/mi-vla-fortran.exp @@ -16,7 +16,7 @@ # Verify that, using the MI, we can evaluate a simple Fortran Variable # Length Array (VLA). =20 -require !skip_fortran_tests +require allow_fortran_tests =20 load_lib mi-support.exp load_lib fortran.exp diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 6334314fd87..6985f721515 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -2403,10 +2403,10 @@ proc allow_stl_tests {} { return [allow_cplus_tests] } =20 -# Return a 1 if I don't even want to try to test FORTRAN. +# Return a 1 if I want to try to test FORTRAN. =20 -proc skip_fortran_tests {} { - return 0 +proc allow_fortran_tests {} { + return 1 } =20 # Return a 1 if I want to try to test ada.