diff options
| author |   Andrzej Warzynski <andrzej.warzynski@arm.com> | 2021-04-12 12:27:49 +0000 |
|---|---|---|
| committer | Andrzej Warzynski <andrzej.warzynski@arm.com> | 2021-04-15 08:52:23 +0000 |
| commit | e7be90bd27051c3dcd9a344cb1b347a0c9454c21 (patch) | |
| tree | 6c7eea7efd4faebae7167304093a0289fd23cfc5 /flang | |
| parent | [NFC][LoopVectorize] Remove unnecessary VF.isScalable asserts (diff) | |
| download | llvm-project-e7be90bd27051c3dcd9a344cb1b347a0c9454c21.tar.gz llvm-project-e7be90bd27051c3dcd9a344cb1b347a0c9454c21.tar.bz2 llvm-project-e7be90bd27051c3dcd9a344cb1b347a0c9454c21.zip | |
[flang] Update the regression tests to use the new driver when enabled
This patch updates most of the remaining regression tests (~400) to use
`flang-new` rather then `f18` when `FLANG_BUILD_NEW_DRIVER` is set.
This allows us to share more Flang regression tests between `f18` and
`flang-new`. A handful of tests have not been ported yet - these are
currently either failing or not supported by the new driver.
Summary of changes:
* RUN lines in tests are updated to use `%flang_fc1` instead of `%f18`
* option spellings in tests are updated to forms accepted by both `f18` and
`flang-new`
* variables in Bash scripts are renamed (e.g. F18 --> FLANG_FC1)
The updated tests will now be run with the new driver, `flang-new`,
whenever it is enabled (i.e when `FLANG_BUILD_NEW_DRIVER` is set).
Although this patch touches many files, vast majority of the changes are
automatic:
```
grep -IEZlr "%f18" flang/test/ | xargs -0 -l sed -i 's/%f18/%flang_fc1/g
```
Differential Revision: https://reviews.llvm.org/D100309
Diffstat (limited to 'flang')
398 files changed, 409 insertions, 408 deletions
diff --git a/flang/test/Evaluate/folding01.f90 b/flang/test/Evaluate/folding01.f90 index b12c6a0e9aed..2cd855cb4fba 100644 --- a/flang/test/Evaluate/folding01.f90 +++ b/flang/test/Evaluate/folding01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test intrinsic operation folding diff --git a/flang/test/Evaluate/folding02.f90 b/flang/test/Evaluate/folding02.f90 index b39490a85f2f..57a19783baf3 100644 --- a/flang/test/Evaluate/folding02.f90 +++ b/flang/test/Evaluate/folding02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Check intrinsic function folding with host runtime library module m diff --git a/flang/test/Evaluate/folding03.f90 b/flang/test/Evaluate/folding03.f90 index 22377d0b1df7..0eaedb294476 100644 --- a/flang/test/Evaluate/folding03.f90 +++ b/flang/test/Evaluate/folding03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test operation folding edge case (both expected value and messages) ! These tests make assumptions regarding real(4) and integer(4) extrema. diff --git a/flang/test/Evaluate/folding04.f90 b/flang/test/Evaluate/folding04.f90 index 187822e5d230..626825d1fd1d 100644 --- a/flang/test/Evaluate/folding04.f90 +++ b/flang/test/Evaluate/folding04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test intrinsic function folding edge case (both expected value and messages) ! These tests make assumptions regarding real(4) extrema. diff --git a/flang/test/Evaluate/folding06.f90 b/flang/test/Evaluate/folding06.f90 index d3cbf1b663e3..5fc0066579ec 100644 --- a/flang/test/Evaluate/folding06.f90 +++ b/flang/test/Evaluate/folding06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test transformational intrinsic function folding module m diff --git a/flang/test/Evaluate/folding07.f90 b/flang/test/Evaluate/folding07.f90 index b99d98993d3e..d579c197f26a 100644 --- a/flang/test/Evaluate/folding07.f90 +++ b/flang/test/Evaluate/folding07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test numeric model inquiry intrinsics module m diff --git a/flang/test/Evaluate/folding08.f90 b/flang/test/Evaluate/folding08.f90 index f7c8c12f2316..ae9bdf589a8a 100644 --- a/flang/test/Evaluate/folding08.f90 +++ b/flang/test/Evaluate/folding08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test folding of LBOUND and UBOUND module m diff --git a/flang/test/Evaluate/folding09.f90 b/flang/test/Evaluate/folding09.f90 index ed60f08d001e..9819bbd2b746 100644 --- a/flang/test/Evaluate/folding09.f90 +++ b/flang/test/Evaluate/folding09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test folding of IS_CONTIGUOUS on simply contiguous items (9.5.4) ! When IS_CONTIGUOUS() is constant, it's .TRUE. diff --git a/flang/test/Evaluate/folding10.f90 b/flang/test/Evaluate/folding10.f90 index 077d8d94cc42..fbc357dcbbdd 100644 --- a/flang/test/Evaluate/folding10.f90 +++ b/flang/test/Evaluate/folding10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Tests folding of SHAPE(TRANSFER(...)) module m diff --git a/flang/test/Evaluate/folding11.f90 b/flang/test/Evaluate/folding11.f90 index 89983889d573..d5003ca80a12 100644 --- a/flang/test/Evaluate/folding11.f90 +++ b/flang/test/Evaluate/folding11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 module m complex, parameter :: z1 = 1. + (2., 3.) logical, parameter :: test_z1 = z1 == (3., 3.) diff --git a/flang/test/Evaluate/folding12.f90 b/flang/test/Evaluate/folding12.f90 index 657ddc6a34ae..94ecb2d8ff44 100644 --- a/flang/test/Evaluate/folding12.f90 +++ b/flang/test/Evaluate/folding12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test folding of structure constructors module m1 type parent_type diff --git a/flang/test/Evaluate/folding13.f90 b/flang/test/Evaluate/folding13.f90 index 753b7be068c2..fbc37ad36fe4 100644 --- a/flang/test/Evaluate/folding13.f90 +++ b/flang/test/Evaluate/folding13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test folding of array constructors with constant implied DO bounds; ! their indices are constant expressions and can be used as such. module m1 diff --git a/flang/test/Evaluate/folding14.f90 b/flang/test/Evaluate/folding14.f90 index 106b8ed9e27f..ff1f3ab93c2f 100644 --- a/flang/test/Evaluate/folding14.f90 +++ b/flang/test/Evaluate/folding14.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test folding of isnan() extension module m1 logical, parameter :: results(*) = isnan([ & diff --git a/flang/test/Evaluate/folding15.f90 b/flang/test/Evaluate/folding15.f90 index 7c0df868ddba..d6894666385d 100644 --- a/flang/test/Evaluate/folding15.f90 +++ b/flang/test/Evaluate/folding15.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test folding of array constructors with duplicate names for the implied ! DO variables module m1 diff --git a/flang/test/Evaluate/folding16.f90 b/flang/test/Evaluate/folding16.f90 index ac4550aa91d9..bb3aee01059e 100644 --- a/flang/test/Evaluate/folding16.f90 +++ b/flang/test/Evaluate/folding16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Ensure that lower bounds are accounted for in intrinsic folding; ! this is a regression test for a bug in which they were not module m diff --git a/flang/test/Evaluate/folding17.f90 b/flang/test/Evaluate/folding17.f90 index cbfddaac5245..2880822e1f4e 100644 --- a/flang/test/Evaluate/folding17.f90 +++ b/flang/test/Evaluate/folding17.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test implementations of STORAGE_SIZE() and SIZEOF() as expression rewrites module m1 type :: t1 diff --git a/flang/test/Evaluate/folding18.f90 b/flang/test/Evaluate/folding18.f90 index 613e57a99c5e..c9cc918e4133 100644 --- a/flang/test/Evaluate/folding18.f90 +++ b/flang/test/Evaluate/folding18.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_folding.sh %s %t %f18 +! RUN: %S/test_folding.sh %s %t %flang_fc1 ! Test implementations of IEEE inquiry functions module m use ieee_arithmetic diff --git a/flang/test/Evaluate/folding19.f90 b/flang/test/Evaluate/folding19.f90 index a8052df8fd4b..e2e3e568bd75 100644 --- a/flang/test/Evaluate/folding19.f90 +++ b/flang/test/Evaluate/folding19.f90 @@ -1,4 +1,4 @@ -! RUN: not %f18 %s 2>&1 | FileCheck %s +! RUN: not %flang_fc1 %s 2>&1 | FileCheck %s ! Check errors found in folding ! TODO: test others emitted from flang/lib/Evaluate module m diff --git a/flang/test/Lower/pre-fir-tree04.f90 b/flang/test/Lower/pre-fir-tree04.f90 index 06fc88f76f54..55b0cb12a227 100644 --- a/flang/test/Lower/pre-fir-tree04.f90 +++ b/flang/test/Lower/pre-fir-tree04.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -fsyntax-only -fdebug-pre-fir-tree %s | FileCheck %s +! RUN: %flang_fc1 -fsyntax-only -fdebug-pre-fir-tree %s | FileCheck %s ! Test Pre-FIR Tree captures all the coarray related statements diff --git a/flang/test/Parser/acc-unparse.f90 b/flang/test/Parser/acc-unparse.f90 index cb0edee2b6d4..d4d48294d4a6 100644 --- a/flang/test/Parser/acc-unparse.f90 +++ b/flang/test/Parser/acc-unparse.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -fopenacc -funparse %s | FileCheck %s +! RUN: %flang_fc1 -fopenacc -fdebug-unparse %s | FileCheck %s ! Test unparse does not crash with OpenACC directives. diff --git a/flang/test/Parser/badlabel.f b/flang/test/Parser/badlabel.f index 28008bd809d9..819dcf894298 100644 --- a/flang/test/Parser/badlabel.f +++ b/flang/test/Parser/badlabel.f @@ -1,4 +1,4 @@ -! RUN: %f18 -E %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s ! CHECK: Label digit is not in fixed-form label field 1 continue ! CHECK: Label digit is not in fixed-form label field diff --git a/flang/test/Parser/compiler-directives.f90 b/flang/test/Parser/compiler-directives.f90 index f29d6fe8fce5..95250338ec75 100644 --- a/flang/test/Parser/compiler-directives.f90 +++ b/flang/test/Parser/compiler-directives.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -funparse %s 2>&1 +! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 ! Test that compiler directives can appear in various places. diff --git a/flang/test/Semantics/OpenACC/acc-symbols01.f90 b/flang/test/Semantics/OpenACC/acc-symbols01.f90 index 1fe26d6f3ef6..bab0aac80379 100644 --- a/flang/test/Semantics/OpenACC/acc-symbols01.f90 +++ b/flang/test/Semantics/OpenACC/acc-symbols01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/../test_symbols.sh %s %t %f18 -fopenacc +! RUN: %S/../test_symbols.sh %s %t %flang_fc1 -fopenacc !DEF: /mm MainProgram program mm diff --git a/flang/test/Semantics/allocate01.f90 b/flang/test/Semantics/allocate01.f90 index 81d77e5cc9b4..4a6c2d08c99d 100644 --- a/flang/test/Semantics/allocate01.f90 +++ b/flang/test/Semantics/allocate01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements ! Creating a symbol that allocate should accept diff --git a/flang/test/Semantics/allocate02.f90 b/flang/test/Semantics/allocate02.f90 index b16391b5d3c6..c396de0db485 100644 --- a/flang/test/Semantics/allocate02.f90 +++ b/flang/test/Semantics/allocate02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements diff --git a/flang/test/Semantics/allocate03.f90 b/flang/test/Semantics/allocate03.f90 index fa0febccfc5a..ba9845f9d6a4 100644 --- a/flang/test/Semantics/allocate03.f90 +++ b/flang/test/Semantics/allocate03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements subroutine C933_a(b1, ca3, ca4, cp3, cp3mold, cp4, cp7, cp8, bsrc) diff --git a/flang/test/Semantics/allocate04.f90 b/flang/test/Semantics/allocate04.f90 index b74b18765089..8928cc7ea85b 100644 --- a/flang/test/Semantics/allocate04.f90 +++ b/flang/test/Semantics/allocate04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements diff --git a/flang/test/Semantics/allocate05.f90 b/flang/test/Semantics/allocate05.f90 index da7fdcabc82a..52fd4a393a99 100644 --- a/flang/test/Semantics/allocate05.f90 +++ b/flang/test/Semantics/allocate05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements diff --git a/flang/test/Semantics/allocate06.f90 b/flang/test/Semantics/allocate06.f90 index 0b204f97daa2..6a7cf79d41d1 100644 --- a/flang/test/Semantics/allocate06.f90 +++ b/flang/test/Semantics/allocate06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements diff --git a/flang/test/Semantics/allocate07.f90 b/flang/test/Semantics/allocate07.f90 index 0a0c5f278a51..70636128e0e3 100644 --- a/flang/test/Semantics/allocate07.f90 +++ b/flang/test/Semantics/allocate07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements subroutine C936(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred) diff --git a/flang/test/Semantics/allocate08.f90 b/flang/test/Semantics/allocate08.f90 index c6dce0de5131..25dc453a26a2 100644 --- a/flang/test/Semantics/allocate08.f90 +++ b/flang/test/Semantics/allocate08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements subroutine C945_a(srca, srcb, srcc, src_complex, src_logical, & diff --git a/flang/test/Semantics/allocate09.f90 b/flang/test/Semantics/allocate09.f90 index 3a0feab29689..d351e728131e 100644 --- a/flang/test/Semantics/allocate09.f90 +++ b/flang/test/Semantics/allocate09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements subroutine C946(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred) diff --git a/flang/test/Semantics/allocate10.f90 b/flang/test/Semantics/allocate10.f90 index 142e9d0eee6f..bb62767423e1 100644 --- a/flang/test/Semantics/allocate10.f90 +++ b/flang/test/Semantics/allocate10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements !TODO: mixing expr and source-expr? diff --git a/flang/test/Semantics/allocate11.f90 b/flang/test/Semantics/allocate11.f90 index ca5ed954a999..3807186abf88 100644 --- a/flang/test/Semantics/allocate11.f90 +++ b/flang/test/Semantics/allocate11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements ! TODO: Function Pointer in allocate and derived types! diff --git a/flang/test/Semantics/allocate12.f90 b/flang/test/Semantics/allocate12.f90 index 91cb979d040e..075fa6a79b57 100644 --- a/flang/test/Semantics/allocate12.f90 +++ b/flang/test/Semantics/allocate12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements subroutine C941_C942b_C950(xsrc, x1, a2, b2, cx1, ca2, cb1, cb2, c1, c2) diff --git a/flang/test/Semantics/allocate13.f90 b/flang/test/Semantics/allocate13.f90 index e5567bd901e8..8fa2b95279fa 100644 --- a/flang/test/Semantics/allocate13.f90 +++ b/flang/test/Semantics/allocate13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in ALLOCATE statements module not_iso_fortran_env diff --git a/flang/test/Semantics/altreturn01.f90 b/flang/test/Semantics/altreturn01.f90 index b6a6e4e4be32..8541287de335 100644 --- a/flang/test/Semantics/altreturn01.f90 +++ b/flang/test/Semantics/altreturn01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check calls with alt returns CALL TEST (N, *100, *200 ) diff --git a/flang/test/Semantics/altreturn02.f90 b/flang/test/Semantics/altreturn02.f90 index 45fc049d1e2a..f3fd9e4c3af4 100644 --- a/flang/test/Semantics/altreturn02.f90 +++ b/flang/test/Semantics/altreturn02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check subroutine with alt return SUBROUTINE TEST (N, *, *) diff --git a/flang/test/Semantics/altreturn03.f90 b/flang/test/Semantics/altreturn03.f90 index cd46c4cd1116..2f6c7f28dfac 100644 --- a/flang/test/Semantics/altreturn03.f90 +++ b/flang/test/Semantics/altreturn03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for various alt return error conditions SUBROUTINE TEST (N, *, *) diff --git a/flang/test/Semantics/altreturn04.f90 b/flang/test/Semantics/altreturn04.f90 index 6356c46855b2..4d2e6957d6b9 100644 --- a/flang/test/Semantics/altreturn04.f90 +++ b/flang/test/Semantics/altreturn04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Functions cannot use alt return REAL FUNCTION altreturn01(X) diff --git a/flang/test/Semantics/altreturn05.f90 b/flang/test/Semantics/altreturn05.f90 index 28530d9430f9..aa9fb3691442 100644 --- a/flang/test/Semantics/altreturn05.f90 +++ b/flang/test/Semantics/altreturn05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test extension: RETURN from main program return !ok diff --git a/flang/test/Semantics/altreturn06.f90 b/flang/test/Semantics/altreturn06.f90 index 27a7b9a04540..15a33b34f0a6 100644 --- a/flang/test/Semantics/altreturn06.f90 +++ b/flang/test/Semantics/altreturn06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test alternat return argument passing for internal and external subprograms ! Both of the following are OK call extSubprogram (*100) diff --git a/flang/test/Semantics/array-constr-values.f90 b/flang/test/Semantics/array-constr-values.f90 index ddab8a607b62..8b7883d213a6 100644 --- a/flang/test/Semantics/array-constr-values.f90 +++ b/flang/test/Semantics/array-constr-values.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Confirm enforcement of constraints and restrictions in 7.8 ! C7110, C7111, C7112, C7113, C7114, C7115 diff --git a/flang/test/Semantics/assign01.f90 b/flang/test/Semantics/assign01.f90 index 7d02e10de96b..0c34c4e59c4e 100644 --- a/flang/test/Semantics/assign01.f90 +++ b/flang/test/Semantics/assign01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! 10.2.3.1(2) All masks and LHS of assignments in a WHERE must conform subroutine s1 diff --git a/flang/test/Semantics/assign02.f90 b/flang/test/Semantics/assign02.f90 index 292a6d42ff98..16e57755fbaa 100644 --- a/flang/test/Semantics/assign02.f90 +++ b/flang/test/Semantics/assign02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Pointer assignment constraints 10.2.2.2 module m1 diff --git a/flang/test/Semantics/assign03.f90 b/flang/test/Semantics/assign03.f90 index c53bb0ed291a..2c60475d185b 100644 --- a/flang/test/Semantics/assign03.f90 +++ b/flang/test/Semantics/assign03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Pointer assignment constraints 10.2.2.2 (see also assign02.f90) module m diff --git a/flang/test/Semantics/assign04.f90 b/flang/test/Semantics/assign04.f90 index 7cb30c49d7cd..8887b4d2dc37 100644 --- a/flang/test/Semantics/assign04.f90 +++ b/flang/test/Semantics/assign04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! 9.4.5 subroutine s1 type :: t(k, l) diff --git a/flang/test/Semantics/assign06.f90 b/flang/test/Semantics/assign06.f90 index a2e7a59b7fd6..12ac4e651d77 100644 --- a/flang/test/Semantics/assign06.f90 +++ b/flang/test/Semantics/assign06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test ASSIGN statement, assigned GOTO, and assigned format labels ! (see subclause 8.2.4 in Fortran 90 (*not* 2018!) diff --git a/flang/test/Semantics/assign07.f90 b/flang/test/Semantics/assign07.f90 index 8ea1024e9885..7ffcc4fabbc2 100644 --- a/flang/test/Semantics/assign07.f90 +++ b/flang/test/Semantics/assign07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test ASSIGN statement, assigned GOTO, and assigned format labels ! (see subclause 8.2.4 in Fortran 90 (*not* 2018!) diff --git a/flang/test/Semantics/associated.f90 b/flang/test/Semantics/associated.f90 index 641b7d97d78a..e23cda56c97e 100644 --- a/flang/test/Semantics/associated.f90 +++ b/flang/test/Semantics/associated.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for the ASSOCIATED() and NULL() intrinsics subroutine assoc() diff --git a/flang/test/Semantics/bad-forward-type.f90 b/flang/test/Semantics/bad-forward-type.f90 index b7857e1f8af4..6c7d082d03ef 100644 --- a/flang/test/Semantics/bad-forward-type.f90 +++ b/flang/test/Semantics/bad-forward-type.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Forward references to derived types (error cases) ! C732 A parent-type-name shall be the name of a previously defined ! extensible type (7.5.7). diff --git a/flang/test/Semantics/badly-typed-intrinsic.f90 b/flang/test/Semantics/badly-typed-intrinsic.f90 index 8f570370e51b..532ef3746619 100644 --- a/flang/test/Semantics/badly-typed-intrinsic.f90 +++ b/flang/test/Semantics/badly-typed-intrinsic.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -fsyntax-only %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s type :: t end type diff --git a/flang/test/Semantics/bind-c01.f90 b/flang/test/Semantics/bind-c01.f90 index 9afb04962d18..f5a0e67eee39 100644 --- a/flang/test/Semantics/bind-c01.f90 +++ b/flang/test/Semantics/bind-c01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for multiple symbols being defined with with same BIND(C) name module m1 diff --git a/flang/test/Semantics/bindings01.f90 b/flang/test/Semantics/bindings01.f90 index b83804786c60..c4421b17ef40 100644 --- a/flang/test/Semantics/bindings01.f90 +++ b/flang/test/Semantics/bindings01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Confirm enforcement of constraints and restrictions in 7.5.7.3 ! and C733, C734 and C779, C780, C782, C783, C784, and C785. diff --git a/flang/test/Semantics/block-data01.f90 b/flang/test/Semantics/block-data01.f90 index 6549e402cc9d..715d6703ae89 100644 --- a/flang/test/Semantics/block-data01.f90 +++ b/flang/test/Semantics/block-data01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test BLOCK DATA subprogram (14.3) block data foo !ERROR: IMPORT is not allowed in a BLOCK DATA subprogram diff --git a/flang/test/Semantics/blockconstruct01.f90 b/flang/test/Semantics/blockconstruct01.f90 index 2b159f42c31c..cd07a413e64e 100644 --- a/flang/test/Semantics/blockconstruct01.f90 +++ b/flang/test/Semantics/blockconstruct01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1107 -- COMMON, EQUIVALENCE, INTENT, NAMELIST, OPTIONAL, VALUE or ! STATEMENT FUNCTIONS not allow in specification part diff --git a/flang/test/Semantics/blockconstruct02.f90 b/flang/test/Semantics/blockconstruct02.f90 index cc7aeee217f1..62f55576329d 100644 --- a/flang/test/Semantics/blockconstruct02.f90 +++ b/flang/test/Semantics/blockconstruct02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1108 -- Save statement in a BLOCK construct shall not conatin a ! saved-entity-list that does not specify a common-block-name diff --git a/flang/test/Semantics/blockconstruct03.f90 b/flang/test/Semantics/blockconstruct03.f90 index a920d9164ed3..14077f58451e 100644 --- a/flang/test/Semantics/blockconstruct03.f90 +++ b/flang/test/Semantics/blockconstruct03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests implemented for this standard: ! Block Construct ! C1109 diff --git a/flang/test/Semantics/boz-literal-constants.f90 b/flang/test/Semantics/boz-literal-constants.f90 index 23155cc29cb7..766466a0bd7c 100644 --- a/flang/test/Semantics/boz-literal-constants.f90 +++ b/flang/test/Semantics/boz-literal-constants.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Confirm enforcement of constraints and restrictions in 7.7 ! C7107, C7108, C7109 diff --git a/flang/test/Semantics/c_f_pointer.f90 b/flang/test/Semantics/c_f_pointer.f90 index 1243c5b7da84..adf427e967c1 100644 --- a/flang/test/Semantics/c_f_pointer.f90 +++ b/flang/test/Semantics/c_f_pointer.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Enforce 18.2.3.3 program test diff --git a/flang/test/Semantics/call01.f90 b/flang/test/Semantics/call01.f90 index f7289b0510f8..02edfc4017f2 100644 --- a/flang/test/Semantics/call01.f90 +++ b/flang/test/Semantics/call01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Confirm enforcement of constraints and restrictions in 15.6.2.1 non_recursive function f01(n) result(res) diff --git a/flang/test/Semantics/call02.f90 b/flang/test/Semantics/call02.f90 index 1b0701a0c922..96538d68fd03 100644 --- a/flang/test/Semantics/call02.f90 +++ b/flang/test/Semantics/call02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! 15.5.1 procedure reference constraints and restrictions subroutine s01(elem, subr) diff --git a/flang/test/Semantics/call03.f90 b/flang/test/Semantics/call03.f90 index 53005f972b19..f76e42107f79 100644 --- a/flang/test/Semantics/call03.f90 +++ b/flang/test/Semantics/call03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.5.2.4 constraints and restrictions for non-POINTER non-ALLOCATABLE ! dummy arguments. diff --git a/flang/test/Semantics/call04.f90 b/flang/test/Semantics/call04.f90 index f437f807b301..95eb0bc58984 100644 --- a/flang/test/Semantics/call04.f90 +++ b/flang/test/Semantics/call04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 8.5.10 & 8.5.18 constraints on dummy argument declarations module m diff --git a/flang/test/Semantics/call05.f90 b/flang/test/Semantics/call05.f90 index 86da81d5e8f1..90368df8c44c 100644 --- a/flang/test/Semantics/call05.f90 +++ b/flang/test/Semantics/call05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.5.2.5 constraints and restrictions for POINTER & ALLOCATABLE ! arguments when both sides of the call have the same attributes. diff --git a/flang/test/Semantics/call06.f90 b/flang/test/Semantics/call06.f90 index 1d37295d1c11..fc31903ad043 100644 --- a/flang/test/Semantics/call06.f90 +++ b/flang/test/Semantics/call06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.5.2.6 constraints and restrictions for ALLOCATABLE ! dummy arguments. diff --git a/flang/test/Semantics/call07.f90 b/flang/test/Semantics/call07.f90 index db531edb6c64..996337f5359c 100644 --- a/flang/test/Semantics/call07.f90 +++ b/flang/test/Semantics/call07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.5.2.7 constraints and restrictions for POINTER dummy arguments. module m diff --git a/flang/test/Semantics/call08.f90 b/flang/test/Semantics/call08.f90 index d2d2ca82c5df..17396d4d3ba4 100644 --- a/flang/test/Semantics/call08.f90 +++ b/flang/test/Semantics/call08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.5.2.8 coarray dummy arguments module m diff --git a/flang/test/Semantics/call09.f90 b/flang/test/Semantics/call09.f90 index 6f5547063ead..8280a82853fd 100644 --- a/flang/test/Semantics/call09.f90 +++ b/flang/test/Semantics/call09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.5.2.9(2,3,5) dummy procedure requirements ! C843 ! An entity with the INTENT attribute shall be a dummy data object or a diff --git a/flang/test/Semantics/call10.f90 b/flang/test/Semantics/call10.f90 index 803726cc1168..5eb5f5ab3b1a 100644 --- a/flang/test/Semantics/call10.f90 +++ b/flang/test/Semantics/call10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.7 (C1583-C1590, C1592-C1599) constraints and restrictions ! for pure procedures. ! (C1591 is tested in call11.f90; C1594 in call12.f90.) diff --git a/flang/test/Semantics/call11.f90 b/flang/test/Semantics/call11.f90 index 7919eec41e9f..55aefa6e760d 100644 --- a/flang/test/Semantics/call11.f90 +++ b/flang/test/Semantics/call11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.7 C1591 & others: contexts requiring pure subprograms module m diff --git a/flang/test/Semantics/call12.f90 b/flang/test/Semantics/call12.f90 index 09ae03b01888..813cc5206403 100644 --- a/flang/test/Semantics/call12.f90 +++ b/flang/test/Semantics/call12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.7 C1594 - prohibited assignments in pure subprograms module used diff --git a/flang/test/Semantics/call13.f90 b/flang/test/Semantics/call13.f90 index da8ae6c56077..bb589b5b064c 100644 --- a/flang/test/Semantics/call13.f90 +++ b/flang/test/Semantics/call13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 15.4.2.2 constraints and restrictions for calls to implicit ! interfaces diff --git a/flang/test/Semantics/call14.f90 b/flang/test/Semantics/call14.f90 index 5007a0a2d5ee..b9002048f0f5 100644 --- a/flang/test/Semantics/call14.f90 +++ b/flang/test/Semantics/call14.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test 8.5.18 constraints on the VALUE attribute module m diff --git a/flang/test/Semantics/call15.f90 b/flang/test/Semantics/call15.f90 index 458b3741765a..9879f7336f44 100644 --- a/flang/test/Semantics/call15.f90 +++ b/flang/test/Semantics/call15.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C711 An assumed-type actual argument that corresponds to an assumed-rank ! dummy argument shall be assumed-shape or assumed-rank. subroutine s(arg1, arg2, arg3) diff --git a/flang/test/Semantics/call16.f90 b/flang/test/Semantics/call16.f90 index c1ace8cc4668..944e04cd7d83 100644 --- a/flang/test/Semantics/call16.f90 +++ b/flang/test/Semantics/call16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test that intrinsic functions used as subroutines and vice versa are caught. diff --git a/flang/test/Semantics/call17.f90 b/flang/test/Semantics/call17.f90 index d392756e1415..299abaf794a3 100644 --- a/flang/test/Semantics/call17.f90 +++ b/flang/test/Semantics/call17.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty +! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty ! Regression test: don't emit a bogus error about an invalid specification expression ! in the declaration of a binding diff --git a/flang/test/Semantics/call18.f90 b/flang/test/Semantics/call18.f90 index 95c850d61a3f..9bf7dc6057e7 100644 --- a/flang/test/Semantics/call18.f90 +++ b/flang/test/Semantics/call18.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Ensure that references to functions that return pointers can serve as ! "variables" in actual arguments. All of these uses are conforming and ! no errors should be reported. diff --git a/flang/test/Semantics/canondo05.f90 b/flang/test/Semantics/canondo05.f90 index 0de34f18fb7c..cdac323240ee 100644 --- a/flang/test/Semantics/canondo05.f90 +++ b/flang/test/Semantics/canondo05.f90 @@ -1,5 +1,5 @@ ! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s -! RUN: %f18 -fopenmp -funparse-with-symbols %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s ! CHECK-NOT: do *[1-9] program P diff --git a/flang/test/Semantics/canondo06.f90 b/flang/test/Semantics/canondo06.f90 index dae6b3807bf3..3dab59d615e5 100644 --- a/flang/test/Semantics/canondo06.f90 +++ b/flang/test/Semantics/canondo06.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -fopenmp -funparse-with-symbols %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -fopenmp -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s ! CHECK-NOT: do *[1-9] ! CHECK: omp simd diff --git a/flang/test/Semantics/case01.f90 b/flang/test/Semantics/case01.f90 index 6342233a727e..05e27eb084e1 100644 --- a/flang/test/Semantics/case01.f90 +++ b/flang/test/Semantics/case01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test SELECT CASE Constraints: C1145, C1146, C1147, C1148, C1149 program selectCaseProg implicit none diff --git a/flang/test/Semantics/coarrays01.f90 b/flang/test/Semantics/coarrays01.f90 index 5b8c7e5e509b..32c4592479d0 100644 --- a/flang/test/Semantics/coarrays01.f90 +++ b/flang/test/Semantics/coarrays01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test selector and team-value in CHANGE TEAM statement ! OK diff --git a/flang/test/Semantics/common.sh b/flang/test/Semantics/common.sh index ac2dab7ac075..22cdc9bfb22e 100644 --- a/flang/test/Semantics/common.sh +++ b/flang/test/Semantics/common.sh @@ -1,7 +1,8 @@ # Common functionality for test scripts # Process arguments, expecting source file as 1st; optional path to f18 as 2nd -# Set: $F18 to the path to f18 with options; $temp to an empty temp directory; -# and $src to the full path of the single source argument. +# Set: $FLANG_FC1 to the path to the Flang frontend driver with options; $temp +# to an empty temp directory; and $src to the full path of the single source +# argument. function die { echo "$(basename $0): $*" >&2 @@ -22,4 +23,4 @@ mkdir -p $temp shift [[ ! -f $1 ]] && die "f18 executable not found: $1" -F18="$*" +FLANG_FC1="$*" diff --git a/flang/test/Semantics/complex01.f90 b/flang/test/Semantics/complex01.f90 index 8049a132c272..48c6830875fb 100644 --- a/flang/test/Semantics/complex01.f90 +++ b/flang/test/Semantics/complex01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C718 Each named constant in a complex literal constant shall be of type ! integer or real. subroutine s() diff --git a/flang/test/Semantics/computed-goto01.f90 b/flang/test/Semantics/computed-goto01.f90 index c2b4337d7ca4..e8ac2ff7e395 100644 --- a/flang/test/Semantics/computed-goto01.f90 +++ b/flang/test/Semantics/computed-goto01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that a basic computed goto compiles INTEGER, DIMENSION (2) :: B diff --git a/flang/test/Semantics/computed-goto02.f90 b/flang/test/Semantics/computed-goto02.f90 index bb0f89518998..409281f60ab7 100644 --- a/flang/test/Semantics/computed-goto02.f90 +++ b/flang/test/Semantics/computed-goto02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that computed goto express must be a scalar integer expression ! TODO: PGI, for example, accepts a float & converts the value to int. diff --git a/flang/test/Semantics/critical01.f90 b/flang/test/Semantics/critical01.f90 index 5e28c7378f61..0caf051a77ae 100644 --- a/flang/test/Semantics/critical01.f90 +++ b/flang/test/Semantics/critical01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !C1117 subroutine test1(a, i) diff --git a/flang/test/Semantics/critical02.f90 b/flang/test/Semantics/critical02.f90 index ae329ebf2660..0e18aecd9a82 100644 --- a/flang/test/Semantics/critical02.f90 +++ b/flang/test/Semantics/critical02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !C1118 subroutine test1 diff --git a/flang/test/Semantics/critical03.f90 b/flang/test/Semantics/critical03.f90 index 5c469ea46e29..852d2083f562 100644 --- a/flang/test/Semantics/critical03.f90 +++ b/flang/test/Semantics/critical03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !C1119 subroutine test1(a, i) diff --git a/flang/test/Semantics/data01.f90 b/flang/test/Semantics/data01.f90 index 84872d3cee20..7ea0139f36ce 100644 --- a/flang/test/Semantics/data01.f90 +++ b/flang/test/Semantics/data01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !Test for checking data constraints, C882-C887 module m1 type person diff --git a/flang/test/Semantics/data02.f90 b/flang/test/Semantics/data02.f90 index 0d20f1c4f043..3eacdb49b877 100644 --- a/flang/test/Semantics/data02.f90 +++ b/flang/test/Semantics/data02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that expressions are analyzed in data statements subroutine s1 diff --git a/flang/test/Semantics/data03.f90 b/flang/test/Semantics/data03.f90 index f5b65035f73d..5a5f9dcc163b 100644 --- a/flang/test/Semantics/data03.f90 +++ b/flang/test/Semantics/data03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !Testing data constraints : C874 - C875, C878 - C881 module m integer, target :: modarray(1) diff --git a/flang/test/Semantics/data04.f90 b/flang/test/Semantics/data04.f90 index 8e6735e22d8d..7cfa5ac1f17c 100644 --- a/flang/test/Semantics/data04.f90 +++ b/flang/test/Semantics/data04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !Testing data constraints : C876, C877 module m integer :: first diff --git a/flang/test/Semantics/data06.f90 b/flang/test/Semantics/data06.f90 index 898606aab367..84d875ef9f01 100644 --- a/flang/test/Semantics/data06.f90 +++ b/flang/test/Semantics/data06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! DATA statement errors subroutine s1 type :: t1 diff --git a/flang/test/Semantics/data07.f90 b/flang/test/Semantics/data07.f90 index 6f47c261f89a..abf875387e7e 100644 --- a/flang/test/Semantics/data07.f90 +++ b/flang/test/Semantics/data07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m contains subroutine s1 diff --git a/flang/test/Semantics/data10.f90 b/flang/test/Semantics/data10.f90 index 244f99504567..ab0e12fd13b3 100644 --- a/flang/test/Semantics/data10.f90 +++ b/flang/test/Semantics/data10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 type :: t integer :: n end type diff --git a/flang/test/Semantics/deallocate01.f90 b/flang/test/Semantics/deallocate01.f90 index 10ae941ec569..5e1af734e698 100644 --- a/flang/test/Semantics/deallocate01.f90 +++ b/flang/test/Semantics/deallocate01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test that DEALLOCATE works INTEGER, PARAMETER :: maxvalue=1024 diff --git a/flang/test/Semantics/deallocate04.f90 b/flang/test/Semantics/deallocate04.f90 index a5a74319c80d..8e26f61d3508 100644 --- a/flang/test/Semantics/deallocate04.f90 +++ b/flang/test/Semantics/deallocate04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for type errors in DEALLOCATE statements INTEGER, PARAMETER :: maxvalue=1024 diff --git a/flang/test/Semantics/deallocate05.f90 b/flang/test/Semantics/deallocate05.f90 index 4a54469e5ab6..418c6079a64a 100644 --- a/flang/test/Semantics/deallocate05.f90 +++ b/flang/test/Semantics/deallocate05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in DEALLOCATE statements Module share diff --git a/flang/test/Semantics/deallocate06.f90 b/flang/test/Semantics/deallocate06.f90 index fc9ff141e82f..28d8d69210cd 100644 --- a/flang/test/Semantics/deallocate06.f90 +++ b/flang/test/Semantics/deallocate06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test deallocate of use- and host-associated variables module m1 diff --git a/flang/test/Semantics/doconcurrent01.f90 b/flang/test/Semantics/doconcurrent01.f90 index ac1f43154939..ac4be8a6143b 100644 --- a/flang/test/Semantics/doconcurrent01.f90 +++ b/flang/test/Semantics/doconcurrent01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1141 ! A reference to the procedure IEEE_SET_HALTING_MODE ! from the intrinsic ! module IEEE_EXCEPTIONS, shall not ! appear within a DO CONCURRENT construct. diff --git a/flang/test/Semantics/doconcurrent05.f90 b/flang/test/Semantics/doconcurrent05.f90 index 693320b89bcf..4ee4ba2040ba 100644 --- a/flang/test/Semantics/doconcurrent05.f90 +++ b/flang/test/Semantics/doconcurrent05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! it belongs to that construct or an outer construct. diff --git a/flang/test/Semantics/doconcurrent06.f90 b/flang/test/Semantics/doconcurrent06.f90 index d12bd4742e54..e3a8b7a3f07b 100644 --- a/flang/test/Semantics/doconcurrent06.f90 +++ b/flang/test/Semantics/doconcurrent06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! it belongs to that construct or an outer construct. diff --git a/flang/test/Semantics/doconcurrent08.f90 b/flang/test/Semantics/doconcurrent08.f90 index b2687b049396..1d2e5e9e1583 100644 --- a/flang/test/Semantics/doconcurrent08.f90 +++ b/flang/test/Semantics/doconcurrent08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1140 -- A statement that might result in the deallocation of a polymorphic ! entity shall not appear within a DO CONCURRENT construct. module m1 diff --git a/flang/test/Semantics/dosemantics01.f90 b/flang/test/Semantics/dosemantics01.f90 index f5a3ab89a002..f4da0c2f5ab4 100644 --- a/flang/test/Semantics/dosemantics01.f90 +++ b/flang/test/Semantics/dosemantics01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1131 -- check valid and invalid DO loop naming PROGRAM C1131 diff --git a/flang/test/Semantics/dosemantics02.f90 b/flang/test/Semantics/dosemantics02.f90 index 57f66817e394..7873f3597cb0 100644 --- a/flang/test/Semantics/dosemantics02.f90 +++ b/flang/test/Semantics/dosemantics02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1121 -- any procedure referenced in a concurrent header must be pure ! Also, check that the step expressions are not zero. This is prohibited by diff --git a/flang/test/Semantics/dosemantics04.f90 b/flang/test/Semantics/dosemantics04.f90 index 6d844e6ce2af..fb3af04243b2 100644 --- a/flang/test/Semantics/dosemantics04.f90 +++ b/flang/test/Semantics/dosemantics04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1123 -- Expressions in DO CONCURRENT header cannot reference variables ! declared in the same header PROGRAM dosemantics04 diff --git a/flang/test/Semantics/dosemantics05.f90 b/flang/test/Semantics/dosemantics05.f90 index e23a221940dc..38af52ce07e5 100644 --- a/flang/test/Semantics/dosemantics05.f90 +++ b/flang/test/Semantics/dosemantics05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test DO loop semantics for constraint C1130 -- ! The constraint states that "If the locality-spec DEFAULT ( NONE ) appears in a ! DO CONCURRENT statement; a variable that is a local or construct entity of a diff --git a/flang/test/Semantics/dosemantics06.f90 b/flang/test/Semantics/dosemantics06.f90 index 70a90af742e1..f315b0798bbd 100644 --- a/flang/test/Semantics/dosemantics06.f90 +++ b/flang/test/Semantics/dosemantics06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1131, C1133 -- check valid and invalid DO loop naming ! C1131 (R1119) If the do-stmt of a do-construct specifies a do-construct-name, ! the corresponding end-do shall be an end-do-stmt specifying the same diff --git a/flang/test/Semantics/dosemantics07.f90 b/flang/test/Semantics/dosemantics07.f90 index 0ecc1550f306..1c1ecb7665dc 100644 --- a/flang/test/Semantics/dosemantics07.f90 +++ b/flang/test/Semantics/dosemantics07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !C1132 ! If the do-stmt is a nonlabel-do-stmt, the corresponding end-do shall be an ! end-do-stmt. diff --git a/flang/test/Semantics/dosemantics08.f90 b/flang/test/Semantics/dosemantics08.f90 index 85a2e953fdf9..1ceee99d1ed8 100644 --- a/flang/test/Semantics/dosemantics08.f90 +++ b/flang/test/Semantics/dosemantics08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1138 -- ! A branch (11.2) within a DO CONCURRENT construct shall not have a branch ! target that is outside the construct. diff --git a/flang/test/Semantics/dosemantics09.f90 b/flang/test/Semantics/dosemantics09.f90 index 7f60c62eab31..933e8b19265a 100644 --- a/flang/test/Semantics/dosemantics09.f90 +++ b/flang/test/Semantics/dosemantics09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !C1129 !A variable that is referenced by the scalar-mask-expr of a !concurrent-header or by any concurrent-limit or concurrent-step in that diff --git a/flang/test/Semantics/dosemantics10.f90 b/flang/test/Semantics/dosemantics10.f90 index 91f5eeee1a68..5ba1bb58ee56 100644 --- a/flang/test/Semantics/dosemantics10.f90 +++ b/flang/test/Semantics/dosemantics10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1134 A CYCLE statement must be within a DO construct ! ! C1166 An EXIT statement must be within a DO construct diff --git a/flang/test/Semantics/dosemantics11.f90 b/flang/test/Semantics/dosemantics11.f90 index cfee63246e73..4d241498f722 100644 --- a/flang/test/Semantics/dosemantics11.f90 +++ b/flang/test/Semantics/dosemantics11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1135 A cycle-stmt shall not appear within a CHANGE TEAM, CRITICAL, or DO ! CONCURRENT construct if it belongs to an outer construct. ! diff --git a/flang/test/Semantics/dosemantics12.f90 b/flang/test/Semantics/dosemantics12.f90 index 7d65c0a6338c..ed516975f26c 100644 --- a/flang/test/Semantics/dosemantics12.f90 +++ b/flang/test/Semantics/dosemantics12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Copyright (c) 2019, NVIDIA CORPORATION. All rights reserved. ! ! Licensed under the Apache License, Version 2.0 (the "License"); diff --git a/flang/test/Semantics/empty.f90 b/flang/test/Semantics/empty.f90 index ff8f64258741..a1950c2a8a71 100644 --- a/flang/test/Semantics/empty.f90 +++ b/flang/test/Semantics/empty.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -fsyntax-only %s +! RUN: %flang_fc1 -fsyntax-only %s ! RUN: rm -rf %t && mkdir %t ! RUN: touch %t/empty.f90 -! RUN: %f18 -fsyntax-only %t/empty.f90 +! RUN: %flang_fc1 -fsyntax-only %t/empty.f90 diff --git a/flang/test/Semantics/entry01.f90 b/flang/test/Semantics/entry01.f90 index b441c95c13f0..3ef5433c71ca 100644 --- a/flang/test/Semantics/entry01.f90 +++ b/flang/test/Semantics/entry01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests valid and invalid ENTRY statements module m1 diff --git a/flang/test/Semantics/equivalence01.f90 b/flang/test/Semantics/equivalence01.f90 index e75d954001d7..5508e02e5513 100644 --- a/flang/test/Semantics/equivalence01.f90 +++ b/flang/test/Semantics/equivalence01.f90 @@ -1,4 +1,4 @@ -!RUN: %S/test_errors.sh %s %t %f18 +!RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 integer i, j real r(2) diff --git a/flang/test/Semantics/expr-errors01.f90 b/flang/test/Semantics/expr-errors01.f90 index a3ebad1d0561..f34a1c725dee 100644 --- a/flang/test/Semantics/expr-errors01.f90 +++ b/flang/test/Semantics/expr-errors01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1003 - can't parenthesize function call returning procedure pointer module m1 type :: dt diff --git a/flang/test/Semantics/expr-errors02.f90 b/flang/test/Semantics/expr-errors02.f90 index af6c531a9a14..6c838fdb3301 100644 --- a/flang/test/Semantics/expr-errors02.f90 +++ b/flang/test/Semantics/expr-errors02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test specification expressions module m diff --git a/flang/test/Semantics/expr-errors03.f90 b/flang/test/Semantics/expr-errors03.f90 index 059e80af183a..55ebf26febb0 100644 --- a/flang/test/Semantics/expr-errors03.f90 +++ b/flang/test/Semantics/expr-errors03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Regression test for subscript error recovery module m implicit none diff --git a/flang/test/Semantics/final01.f90 b/flang/test/Semantics/final01.f90 index 3f5915093dad..bde9bcbf00d0 100644 --- a/flang/test/Semantics/final01.f90 +++ b/flang/test/Semantics/final01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test FINAL subroutine constraints C786-C789 module m1 external :: external diff --git a/flang/test/Semantics/final02.f90 b/flang/test/Semantics/final02.f90 index f613a4228481..8de8973ea40c 100644 --- a/flang/test/Semantics/final02.f90 +++ b/flang/test/Semantics/final02.f90 @@ -1,4 +1,4 @@ -!RUN: %f18 -fsyntax-only %s 2>&1 | FileCheck %s +!RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s module m type :: t1 integer :: n diff --git a/flang/test/Semantics/forall01.f90 b/flang/test/Semantics/forall01.f90 index 2dec64546919..59d69cf04486 100644 --- a/flang/test/Semantics/forall01.f90 +++ b/flang/test/Semantics/forall01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine forall1 real :: a(9) !ERROR: 'i' is already declared in this scoping unit diff --git a/flang/test/Semantics/if_arith01.f90 b/flang/test/Semantics/if_arith01.f90 index abce953a330a..6206f4e55411 100644 --- a/flang/test/Semantics/if_arith01.f90 +++ b/flang/test/Semantics/if_arith01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that a basic arithmetic if compiles. if ( A ) 100, 200, 300 diff --git a/flang/test/Semantics/if_arith02.f90 b/flang/test/Semantics/if_arith02.f90 index 06cf4232bc95..20f447a8961c 100644 --- a/flang/test/Semantics/if_arith02.f90 +++ b/flang/test/Semantics/if_arith02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that only labels are allowed in arithmetic if statements. ! TODO: Revisit error message "expected 'ASSIGN'" etc. ! TODO: Revisit error message "expected one of '0123456789'" diff --git a/flang/test/Semantics/if_arith03.f90 b/flang/test/Semantics/if_arith03.f90 index e4ace9288098..4da057ea560e 100644 --- a/flang/test/Semantics/if_arith03.f90 +++ b/flang/test/Semantics/if_arith03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !ERROR: Label '600' was not found diff --git a/flang/test/Semantics/if_arith04.f90 b/flang/test/Semantics/if_arith04.f90 index f2be27b09270..5065713f4258 100644 --- a/flang/test/Semantics/if_arith04.f90 +++ b/flang/test/Semantics/if_arith04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Make sure arithmetic if expressions are non-complex numeric exprs. INTEGER I diff --git a/flang/test/Semantics/if_construct01.f90 b/flang/test/Semantics/if_construct01.f90 index 0ca70902e4a5..450cd6715442 100644 --- a/flang/test/Semantics/if_construct01.f90 +++ b/flang/test/Semantics/if_construct01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Simple check that if constructs are ok. if (a < b) then diff --git a/flang/test/Semantics/if_construct02.f90 b/flang/test/Semantics/if_construct02.f90 index 74ef5febb289..a1cf683380eb 100644 --- a/flang/test/Semantics/if_construct02.f90 +++ b/flang/test/Semantics/if_construct02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that if constructs only accept scalar logical expressions. ! TODO: expand the test to check this restriction for more types. diff --git a/flang/test/Semantics/if_stmt01.f90 b/flang/test/Semantics/if_stmt01.f90 index 12a3d50efa6a..07c2878dc9cb 100644 --- a/flang/test/Semantics/if_stmt01.f90 +++ b/flang/test/Semantics/if_stmt01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Simple check that if statements are ok. IF (A > 0.0) A = LOG (A) diff --git a/flang/test/Semantics/if_stmt02.f90 b/flang/test/Semantics/if_stmt02.f90 index 08c07c039aa8..848210988e09 100644 --- a/flang/test/Semantics/if_stmt02.f90 +++ b/flang/test/Semantics/if_stmt02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !ERROR: IF statement is not allowed in IF statement IF (A > 0.0) IF (B < 0.0) A = LOG (A) END diff --git a/flang/test/Semantics/if_stmt03.f90 b/flang/test/Semantics/if_stmt03.f90 index 5da1c4e3588c..acd67a9036ff 100644 --- a/flang/test/Semantics/if_stmt03.f90 +++ b/flang/test/Semantics/if_stmt03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check that non-logical expressions are not allowed. ! Check that non-scalar expressions are not allowed. ! TODO: Insure all non-logicals are prohibited. diff --git a/flang/test/Semantics/implicit01.f90 b/flang/test/Semantics/implicit01.f90 index c8c268fffcd4..3c848b8ea2b6 100644 --- a/flang/test/Semantics/implicit01.f90 +++ b/flang/test/Semantics/implicit01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 implicit none !ERROR: More than one IMPLICIT NONE statement diff --git a/flang/test/Semantics/implicit02.f90 b/flang/test/Semantics/implicit02.f90 index 282fb9a5d1f2..168d77907ef4 100644 --- a/flang/test/Semantics/implicit02.f90 +++ b/flang/test/Semantics/implicit02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 implicit none !ERROR: IMPLICIT statement after IMPLICIT NONE or IMPLICIT NONE(TYPE) statement diff --git a/flang/test/Semantics/implicit03.f90 b/flang/test/Semantics/implicit03.f90 index 0d937a95cb06..91e60b61d1d5 100644 --- a/flang/test/Semantics/implicit03.f90 +++ b/flang/test/Semantics/implicit03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 implicit integer(a-z) !ERROR: IMPLICIT NONE statement after IMPLICIT statement diff --git a/flang/test/Semantics/implicit04.f90 b/flang/test/Semantics/implicit04.f90 index d8430b6fca20..3fb20b22f13d 100644 --- a/flang/test/Semantics/implicit04.f90 +++ b/flang/test/Semantics/implicit04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s parameter(a=1.0) !ERROR: IMPLICIT NONE statement after PARAMETER statement diff --git a/flang/test/Semantics/implicit05.f90 b/flang/test/Semantics/implicit05.f90 index 6f7380dfd354..eaa7116eed2a 100644 --- a/flang/test/Semantics/implicit05.f90 +++ b/flang/test/Semantics/implicit05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s !ERROR: 'a' does not follow 'b' alphabetically implicit integer(b-a) diff --git a/flang/test/Semantics/implicit06.f90 b/flang/test/Semantics/implicit06.f90 index 5c8e0e1d798b..64053afd656f 100644 --- a/flang/test/Semantics/implicit06.f90 +++ b/flang/test/Semantics/implicit06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 implicit integer(a-c) !ERROR: More than one implicit type specified for 'c' diff --git a/flang/test/Semantics/implicit07.f90 b/flang/test/Semantics/implicit07.f90 index 5362f91dcb02..2eb491eb8346 100644 --- a/flang/test/Semantics/implicit07.f90 +++ b/flang/test/Semantics/implicit07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 implicit none(external) external x integer :: f, i diff --git a/flang/test/Semantics/implicit08.f90 b/flang/test/Semantics/implicit08.f90 index b1b33bae16fe..ba75db8645e2 100644 --- a/flang/test/Semantics/implicit08.f90 +++ b/flang/test/Semantics/implicit08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 block !ERROR: IMPLICIT statement is not allowed in a BLOCK construct diff --git a/flang/test/Semantics/implicit09.f90 b/flang/test/Semantics/implicit09.f90 index 30577fccb0f6..21bb9ace797c 100644 --- a/flang/test/Semantics/implicit09.f90 +++ b/flang/test/Semantics/implicit09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fimplicit-none-type-never +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fimplicit-none-type-never subroutine s1 implicit none i = j + k ! would be error without -fimplicit-none-type-never diff --git a/flang/test/Semantics/implicit10.f90 b/flang/test/Semantics/implicit10.f90 index a77ada8f4893..84edfb3cf966 100644 --- a/flang/test/Semantics/implicit10.f90 +++ b/flang/test/Semantics/implicit10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fimplicit-none-type-always +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fimplicit-none !ERROR: No explicit type declared for 'f' function f() diff --git a/flang/test/Semantics/implicit11.f90 b/flang/test/Semantics/implicit11.f90 index 2c8e138de1ef..9598db972c01 100644 --- a/flang/test/Semantics/implicit11.f90 +++ b/flang/test/Semantics/implicit11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test use of implicitly declared variable in specification expression diff --git a/flang/test/Semantics/init01.f90 b/flang/test/Semantics/init01.f90 index 2492051cdb74..8e99c491970e 100644 --- a/flang/test/Semantics/init01.f90 +++ b/flang/test/Semantics/init01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Initializer error tests subroutine objectpointers(j) diff --git a/flang/test/Semantics/int-literals.f90 b/flang/test/Semantics/int-literals.f90 index 125b2051d36c..a0951acefeda 100644 --- a/flang/test/Semantics/int-literals.f90 +++ b/flang/test/Semantics/int-literals.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Fortran syntax considers signed int literals in complex literals ! to be a distinct production, not an application of unary +/- to ! an unsigned int literal, so they're used here to test overflow diff --git a/flang/test/Semantics/io01.f90 b/flang/test/Semantics/io01.f90 index 17b68e407407..e5a0b23a97ef 100644 --- a/flang/test/Semantics/io01.f90 +++ b/flang/test/Semantics/io01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 character(len=20) :: access = "direcT" character(len=20) :: access_(2) = (/"direcT", "streaM"/) character(len=20) :: action_(2) = (/"reaD ", "writE"/) diff --git a/flang/test/Semantics/io02.f90 b/flang/test/Semantics/io02.f90 index 9f5235d353cb..f818a74f240a 100644 --- a/flang/test/Semantics/io02.f90 +++ b/flang/test/Semantics/io02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 integer :: unit10 = 10 integer :: unit11 = 11 integer, parameter :: const_stat = 6666 diff --git a/flang/test/Semantics/io03.f90 b/flang/test/Semantics/io03.f90 index e93646bf37ba..a2071e319297 100644 --- a/flang/test/Semantics/io03.f90 +++ b/flang/test/Semantics/io03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 character(kind=1,len=50) internal_file character(kind=2,len=50) internal_file2 character(kind=4,len=50) internal_file4 diff --git a/flang/test/Semantics/io04.f90 b/flang/test/Semantics/io04.f90 index 8beb446632d3..67feda835186 100644 --- a/flang/test/Semantics/io04.f90 +++ b/flang/test/Semantics/io04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 character(kind=1,len=50) internal_file character(kind=1,len=100) msg character(20) sign diff --git a/flang/test/Semantics/io05.f90 b/flang/test/Semantics/io05.f90 index 666b200ad9a3..9a7885330a1d 100644 --- a/flang/test/Semantics/io05.f90 +++ b/flang/test/Semantics/io05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 character*20 c(25), cv character(kind=1,len=59) msg character, parameter :: const_round = "c'est quoi?" diff --git a/flang/test/Semantics/io06.f90 b/flang/test/Semantics/io06.f90 index fe3b97f0e67e..40ac1df8710a 100644 --- a/flang/test/Semantics/io06.f90 +++ b/flang/test/Semantics/io06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 character(kind=1,len=100) msg1 character(kind=2,len=200) msg2 character, parameter :: const_msg = 'doof' diff --git a/flang/test/Semantics/io07.f90 b/flang/test/Semantics/io07.f90 index 75ca54b43c92..fbb54ffd3810 100644 --- a/flang/test/Semantics/io07.f90 +++ b/flang/test/Semantics/io07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 1001 format(A) !ERROR: Format statement must be labeled diff --git a/flang/test/Semantics/io08.f90 b/flang/test/Semantics/io08.f90 index 491f0ad7abad..7496f32b1447 100644 --- a/flang/test/Semantics/io08.f90 +++ b/flang/test/Semantics/io08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 write(*,*) write(*,'()') write(*,'(A)') diff --git a/flang/test/Semantics/io09.f90 b/flang/test/Semantics/io09.f90 index ce52aab82d18..6b331776e88d 100644 --- a/flang/test/Semantics/io09.f90 +++ b/flang/test/Semantics/io09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !ERROR: String edit descriptor in READ format expression read(*,'("abc")') diff --git a/flang/test/Semantics/kinds01.f90 b/flang/test/Semantics/kinds01.f90 index 18776dfc51d8..89a69cf50303 100644 --- a/flang/test/Semantics/kinds01.f90 +++ b/flang/test/Semantics/kinds01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /MainProgram1/jk1 ObjectEntity INTEGER(1) integer(kind=1) jk1 !DEF: /MainProgram1/js1 ObjectEntity INTEGER(1) diff --git a/flang/test/Semantics/kinds02.f90 b/flang/test/Semantics/kinds02.f90 index cf22056c1c20..e5f930025a72 100644 --- a/flang/test/Semantics/kinds02.f90 +++ b/flang/test/Semantics/kinds02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C712 The value of scalar-int-constant-expr shall be nonnegative and ! shall specify a representation method that exists on the processor. ! C714 The value of kind-param shall be nonnegative. diff --git a/flang/test/Semantics/kinds03.f90 b/flang/test/Semantics/kinds03.f90 index 00e6c1fd9c56..9554e8757781 100644 --- a/flang/test/Semantics/kinds03.f90 +++ b/flang/test/Semantics/kinds03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /MainProgram1/ipdt DerivedType !DEF: /MainProgram1/ipdt/k TypeParam INTEGER(4) type :: ipdt(k) diff --git a/flang/test/Semantics/kinds04.f90 b/flang/test/Semantics/kinds04.f90 index 32745637fd73..e87ec671a690 100644 --- a/flang/test/Semantics/kinds04.f90 +++ b/flang/test/Semantics/kinds04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C716 If both kind-param and exponent-letter appear, exponent-letter ! shall be E. ! C717 The value of kind-param shall specify an approximation method that diff --git a/flang/test/Semantics/label11.f90 b/flang/test/Semantics/label11.f90 index a660c5bd618e..c1902f31765b 100644 --- a/flang/test/Semantics/label11.f90 +++ b/flang/test/Semantics/label11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C739 If END TYPE is followed by a type-name, the type-name shall be the ! same as that in the corresponding derived-type-stmt. ! C1401 The program-name shall not be included in the end-program-stmt unless diff --git a/flang/test/Semantics/label16.f90 b/flang/test/Semantics/label16.f90 index 11c5381b715f..71afeee56ac8 100644 --- a/flang/test/Semantics/label16.f90 +++ b/flang/test/Semantics/label16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine x(n) call x1(n) diff --git a/flang/test/Semantics/misc-declarations.f90 b/flang/test/Semantics/misc-declarations.f90 index fdf00dcacbbd..564e211b09f7 100644 --- a/flang/test/Semantics/misc-declarations.f90 +++ b/flang/test/Semantics/misc-declarations.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Miscellaneous constraint and requirement checking on declarations: ! - 8.5.6.2 & 8.5.6.3 constraints on coarrays ! - 8.5.19 constraints on the VOLATILE attribute diff --git a/flang/test/Semantics/missing_newline.f90 b/flang/test/Semantics/missing_newline.f90 index 82f9c9ceb612..bca90652112d 100644 --- a/flang/test/Semantics/missing_newline.f90 +++ b/flang/test/Semantics/missing_newline.f90 @@ -1,4 +1,4 @@ ! RUN: echo -n "end program" > %t.f90 -! RUN: %f18 -fsyntax-only %t.f90 +! RUN: %flang_fc1 -fsyntax-only %t.f90 ! RUN: echo -ne "\rend program" > %t.f90 -! RUN: %f18 -fsyntax-only %t.f90 +! RUN: %flang_fc1 -fsyntax-only %t.f90 diff --git a/flang/test/Semantics/modfile01.f90 b/flang/test/Semantics/modfile01.f90 index 1880a13f8abb..dc1ecbc06947 100644 --- a/flang/test/Semantics/modfile01.f90 +++ b/flang/test/Semantics/modfile01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check correct modfile generation for type with private component. module m integer :: i diff --git a/flang/test/Semantics/modfile02.f90 b/flang/test/Semantics/modfile02.f90 index 3c3a1c64c482..8532370f1f6a 100644 --- a/flang/test/Semantics/modfile02.f90 +++ b/flang/test/Semantics/modfile02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check modfile generation for private type in public API. module m diff --git a/flang/test/Semantics/modfile03.f90 b/flang/test/Semantics/modfile03.f90 index a4b21c8287f5..c602e9d9532c 100644 --- a/flang/test/Semantics/modfile03.f90 +++ b/flang/test/Semantics/modfile03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check modfile generation with use-association. module m1 diff --git a/flang/test/Semantics/modfile04.f90 b/flang/test/Semantics/modfile04.f90 index 9312b756513c..72858c974560 100644 --- a/flang/test/Semantics/modfile04.f90 +++ b/flang/test/Semantics/modfile04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! modfile with subprograms module m1 diff --git a/flang/test/Semantics/modfile05.f90 b/flang/test/Semantics/modfile05.f90 index 82e9629562a6..d3fff34df450 100644 --- a/flang/test/Semantics/modfile05.f90 +++ b/flang/test/Semantics/modfile05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Use-association with VOLATILE or ASYNCHRONOUS module m1 diff --git a/flang/test/Semantics/modfile06.f90 b/flang/test/Semantics/modfile06.f90 index e463834bde8d..0f47d6877cf2 100644 --- a/flang/test/Semantics/modfile06.f90 +++ b/flang/test/Semantics/modfile06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check modfile generation for external interface module m interface diff --git a/flang/test/Semantics/modfile07.f90 b/flang/test/Semantics/modfile07.f90 index 878e342ff16a..df5b4b820344 100644 --- a/flang/test/Semantics/modfile07.f90 +++ b/flang/test/Semantics/modfile07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check modfile generation for generic interfaces module m1 interface foo diff --git a/flang/test/Semantics/modfile08.f90 b/flang/test/Semantics/modfile08.f90 index b87de4915e2b..3fa3be04413b 100644 --- a/flang/test/Semantics/modfile08.f90 +++ b/flang/test/Semantics/modfile08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check modfile generation for external declarations module m real, external :: a diff --git a/flang/test/Semantics/modfile09.f90 b/flang/test/Semantics/modfile09.f90 index 0e22f9d01e5e..eb8ea3de9c87 100644 --- a/flang/test/Semantics/modfile09.f90 +++ b/flang/test/Semantics/modfile09.f90 @@ -1 +1 @@ -!RUN: %S/test_modfile.sh '%S/Inputs/modfile09-*' %t %f18 +!RUN: %S/test_modfile.sh '%S/Inputs/modfile09-*' %t %flang_fc1 diff --git a/flang/test/Semantics/modfile10.f90 b/flang/test/Semantics/modfile10.f90 index 996178f5896d..d5eb7eee07e9 100644 --- a/flang/test/Semantics/modfile10.f90 +++ b/flang/test/Semantics/modfile10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test writing procedure bindings in a derived type. module m diff --git a/flang/test/Semantics/modfile11.f90 b/flang/test/Semantics/modfile11.f90 index 3259a5fb5ee6..e347a1620eea 100644 --- a/flang/test/Semantics/modfile11.f90 +++ b/flang/test/Semantics/modfile11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m type t1(a, b, c) integer, kind :: a diff --git a/flang/test/Semantics/modfile12.f90 b/flang/test/Semantics/modfile12.f90 index fcea8fc39a59..6171e893ca27 100644 --- a/flang/test/Semantics/modfile12.f90 +++ b/flang/test/Semantics/modfile12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m integer(8), parameter :: a = 1, b = 2_8 parameter(n=3,l=-3,e=1.0/3.0) diff --git a/flang/test/Semantics/modfile13.f90 b/flang/test/Semantics/modfile13.f90 index 8c6ce50c360b..f3882ce1004d 100644 --- a/flang/test/Semantics/modfile13.f90 +++ b/flang/test/Semantics/modfile13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m character(2) :: z character(len=3) :: y diff --git a/flang/test/Semantics/modfile14.f90 b/flang/test/Semantics/modfile14.f90 index e79a99919249..0f8c375a0f37 100644 --- a/flang/test/Semantics/modfile14.f90 +++ b/flang/test/Semantics/modfile14.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m type t1 contains diff --git a/flang/test/Semantics/modfile15.f90 b/flang/test/Semantics/modfile15.f90 index 6051cb7f59e9..1ea58f081098 100644 --- a/flang/test/Semantics/modfile15.f90 +++ b/flang/test/Semantics/modfile15.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m type :: t procedure(a), pointer, pass :: c diff --git a/flang/test/Semantics/modfile16.f90 b/flang/test/Semantics/modfile16.f90 index c250770393cb..8b51f1bf407e 100644 --- a/flang/test/Semantics/modfile16.f90 +++ b/flang/test/Semantics/modfile16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m character(2), parameter :: prefix = 'c_' integer, bind(c, name='c_a') :: a diff --git a/flang/test/Semantics/modfile17.f90 b/flang/test/Semantics/modfile17.f90 index 3c7361b03bfd..1cae92f63220 100644 --- a/flang/test/Semantics/modfile17.f90 +++ b/flang/test/Semantics/modfile17.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Tests parameterized derived type instantiation with KIND parameters module m diff --git a/flang/test/Semantics/modfile18.f90 b/flang/test/Semantics/modfile18.f90 index a242b3fc9495..c85f47841f4c 100644 --- a/flang/test/Semantics/modfile18.f90 +++ b/flang/test/Semantics/modfile18.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Tests folding of array constructors module m diff --git a/flang/test/Semantics/modfile19.f90 b/flang/test/Semantics/modfile19.f90 index 78d3e73b0892..41185ac5f424 100644 --- a/flang/test/Semantics/modfile19.f90 +++ b/flang/test/Semantics/modfile19.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m implicit complex(8)(z) real :: x diff --git a/flang/test/Semantics/modfile20.f90 b/flang/test/Semantics/modfile20.f90 index 1be724c7e17f..44ac419330d1 100644 --- a/flang/test/Semantics/modfile20.f90 +++ b/flang/test/Semantics/modfile20.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test modfiles for entities with initialization module m integer, parameter :: k8 = 8 diff --git a/flang/test/Semantics/modfile21.f90 b/flang/test/Semantics/modfile21.f90 index 73cf59f827a2..87fdc9b831da 100644 --- a/flang/test/Semantics/modfile21.f90 +++ b/flang/test/Semantics/modfile21.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m logical b bind(C) :: /cb2/ diff --git a/flang/test/Semantics/modfile22.f90 b/flang/test/Semantics/modfile22.f90 index bef096bcec15..e0c05b1c406f 100644 --- a/flang/test/Semantics/modfile22.f90 +++ b/flang/test/Semantics/modfile22.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test character length conversions in constructors module m diff --git a/flang/test/Semantics/modfile23.f90 b/flang/test/Semantics/modfile23.f90 index 828168b1810d..25ca61eca234 100644 --- a/flang/test/Semantics/modfile23.f90 +++ b/flang/test/Semantics/modfile23.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test that subprogram interfaces get all of the symbols that they need. module m1 diff --git a/flang/test/Semantics/modfile24.f90 b/flang/test/Semantics/modfile24.f90 index 2e67e9c1cd26..f51f3d8775d2 100644 --- a/flang/test/Semantics/modfile24.f90 +++ b/flang/test/Semantics/modfile24.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test declarations with coarray-spec ! Different ways of declaring the same coarray. diff --git a/flang/test/Semantics/modfile25.f90 b/flang/test/Semantics/modfile25.f90 index 76dc61a54b6c..6f8c156cb9d5 100644 --- a/flang/test/Semantics/modfile25.f90 +++ b/flang/test/Semantics/modfile25.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test compile-time analysis of shapes. module m1 diff --git a/flang/test/Semantics/modfile26.f90 b/flang/test/Semantics/modfile26.f90 index d8c795b67a41..196c3565190d 100644 --- a/flang/test/Semantics/modfile26.f90 +++ b/flang/test/Semantics/modfile26.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Intrinsics SELECTED_INT_KIND, SELECTED_REAL_KIND, PRECISION, RANGE, ! RADIX, DIGITS diff --git a/flang/test/Semantics/modfile27.f90 b/flang/test/Semantics/modfile27.f90 index 7e712cb9d3ae..87a3e4a3b034 100644 --- a/flang/test/Semantics/modfile27.f90 +++ b/flang/test/Semantics/modfile27.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test folding of combined array references and structure component ! references. diff --git a/flang/test/Semantics/modfile28.f90 b/flang/test/Semantics/modfile28.f90 index 4ad06434343c..59c0b8748c79 100644 --- a/flang/test/Semantics/modfile28.f90 +++ b/flang/test/Semantics/modfile28.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test UTF-8 support in character literals ! Note: Module files are encoded in UTF-8. diff --git a/flang/test/Semantics/modfile29.f90 b/flang/test/Semantics/modfile29.f90 index 3f9e29906268..e0898759ee6d 100644 --- a/flang/test/Semantics/modfile29.f90 +++ b/flang/test/Semantics/modfile29.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check that implicitly typed entities get a type in the module file. module m diff --git a/flang/test/Semantics/modfile30.f90 b/flang/test/Semantics/modfile30.f90 index 275f72cdbf67..97161f44340d 100644 --- a/flang/test/Semantics/modfile30.f90 +++ b/flang/test/Semantics/modfile30.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Verify miscellaneous bugs ! The function result must be declared after the dummy arguments diff --git a/flang/test/Semantics/modfile31.f90 b/flang/test/Semantics/modfile31.f90 index ad0225432d5e..3dca7ad94899 100644 --- a/flang/test/Semantics/modfile31.f90 +++ b/flang/test/Semantics/modfile31.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test 7.6 enum values module m1 diff --git a/flang/test/Semantics/modfile32.f90 b/flang/test/Semantics/modfile32.f90 index f7aaecfeaf50..b2013bc5205e 100644 --- a/flang/test/Semantics/modfile32.f90 +++ b/flang/test/Semantics/modfile32.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Resolution of generic names in expressions. ! Test by using generic function in a specification expression that needs ! to be written to a .mod file. diff --git a/flang/test/Semantics/modfile33.f90 b/flang/test/Semantics/modfile33.f90 index 93845fabf307..5925778d5175 100644 --- a/flang/test/Semantics/modfile33.f90 +++ b/flang/test/Semantics/modfile33.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 -flogical-abbreviations -fxor-operator +! RUN: %S/test_modfile.sh %s %t %flang_fc1 -flogical-abbreviations -fxor-operator ! Resolution of user-defined operators in expressions. ! Test by using generic function in a specification expression that needs diff --git a/flang/test/Semantics/modfile34.f90 b/flang/test/Semantics/modfile34.f90 index 59b27c49867b..717c135e4da8 100644 --- a/flang/test/Semantics/modfile34.f90 +++ b/flang/test/Semantics/modfile34.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Test resolution of type-bound generics. module m1 diff --git a/flang/test/Semantics/modfile35.f90 b/flang/test/Semantics/modfile35.f90 index 1c50bfed25e3..89a7acf06c62 100644 --- a/flang/test/Semantics/modfile35.f90 +++ b/flang/test/Semantics/modfile35.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 module m1 type :: t1 contains diff --git a/flang/test/Semantics/modfile36.f90 b/flang/test/Semantics/modfile36.f90 index b111d9eb7a6e..86d134943ffe 100644 --- a/flang/test/Semantics/modfile36.f90 +++ b/flang/test/Semantics/modfile36.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Check modfile that contains import of use-assocation of another use-association. diff --git a/flang/test/Semantics/modfile37.f90 b/flang/test/Semantics/modfile37.f90 index 61f64fbb9169..22742532ad5e 100644 --- a/flang/test/Semantics/modfile37.f90 +++ b/flang/test/Semantics/modfile37.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Ensure that a dummy procedure's interface's imports ! appear in the module file. diff --git a/flang/test/Semantics/modfile38.f90 b/flang/test/Semantics/modfile38.f90 index c234568444b3..dde0ea97a575 100644 --- a/flang/test/Semantics/modfile38.f90 +++ b/flang/test/Semantics/modfile38.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Ensure that an interface with the same name as a derived type ! does not cause that shadowed name to be emitted later than its diff --git a/flang/test/Semantics/modfile39.f90 b/flang/test/Semantics/modfile39.f90 index f9d75705e01f..6489cc843754 100644 --- a/flang/test/Semantics/modfile39.f90 +++ b/flang/test/Semantics/modfile39.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Resolution of specification expression references to generic interfaces ! that resolve to private specific functions. diff --git a/flang/test/Semantics/modfile40.f90 b/flang/test/Semantics/modfile40.f90 index 392b320afdb3..a4825ffed1fb 100644 --- a/flang/test/Semantics/modfile40.f90 +++ b/flang/test/Semantics/modfile40.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_modfile.sh %s %t %f18 +! RUN: %S/test_modfile.sh %s %t %flang_fc1 ! Ensure that intrinsics in module files retain their 'private' attribute, ! if they are private. diff --git a/flang/test/Semantics/modifiable01.f90 b/flang/test/Semantics/modifiable01.f90 index ad81e027932b..f7bfded60218 100644 --- a/flang/test/Semantics/modifiable01.f90 +++ b/flang/test/Semantics/modifiable01.f90 @@ -1,4 +1,4 @@ -! RUN: not %f18 -fsyntax-only %s 2>&1 | FileCheck %s +! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s ! Test WhyNotModifiable() explanations module prot diff --git a/flang/test/Semantics/namelist01.f90 b/flang/test/Semantics/namelist01.f90 index 6f5575adf2b6..a3f0683bb549 100644 --- a/flang/test/Semantics/namelist01.f90 +++ b/flang/test/Semantics/namelist01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test for checking namelist constraints, C8103-C8105 module dup diff --git a/flang/test/Semantics/null-init.f90 b/flang/test/Semantics/null-init.f90 index ede47bb61ec6..46bb04c380b7 100644 --- a/flang/test/Semantics/null-init.f90 +++ b/flang/test/Semantics/null-init.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests valid and invalid NULL initializers module m1 diff --git a/flang/test/Semantics/null01.f90 b/flang/test/Semantics/null01.f90 index 0cfea52bcd3e..7c2af0b288ce 100644 --- a/flang/test/Semantics/null01.f90 +++ b/flang/test/Semantics/null01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! NULL() intrinsic function error tests subroutine test diff --git a/flang/test/Semantics/nullify01.f90 b/flang/test/Semantics/nullify01.f90 index 455a7b44e327..0940410a1c9a 100644 --- a/flang/test/Semantics/nullify01.f90 +++ b/flang/test/Semantics/nullify01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test that NULLIFY works Module share diff --git a/flang/test/Semantics/nullify02.f90 b/flang/test/Semantics/nullify02.f90 index b889c9b20c6c..9700e3f05fae 100644 --- a/flang/test/Semantics/nullify02.f90 +++ b/flang/test/Semantics/nullify02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in NULLIFY statements INTEGER, PARAMETER :: maxvalue=1024 diff --git a/flang/test/Semantics/num_images.f90 b/flang/test/Semantics/num_images.f90 index 788b54224d8f..260d819b7807 100644 --- a/flang/test/Semantics/num_images.f90 +++ b/flang/test/Semantics/num_images.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check for semantic errors in num_images() function calls subroutine test diff --git a/flang/test/Semantics/oldparam01.f90 b/flang/test/Semantics/oldparam01.f90 index b02ded3efc77..a26db3c045fb 100644 --- a/flang/test/Semantics/oldparam01.f90 +++ b/flang/test/Semantics/oldparam01.f90 @@ -1,4 +1,4 @@ -! RUN: %f18 -falternative-parameter-statement -fdebug-dump-symbols %s 2>&1 | FileCheck %s +! RUN: %flang_fc1 -falternative-parameter-statement -fdebug-dump-symbols %s 2>&1 | FileCheck %s ! Non-error tests for "old style" PARAMETER statements diff --git a/flang/test/Semantics/oldparam03.f90 b/flang/test/Semantics/oldparam03.f90 index bc80f00a1966..c28ca03cac16 100644 --- a/flang/test/Semantics/oldparam03.f90 +++ b/flang/test/Semantics/oldparam03.f90 @@ -1,4 +1,4 @@ -! RUN: not %f18 -fsyntax-only %s 2>&1 | FileCheck %s +! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s ! Ensure that old-style PARAMETER statements are disabled by default. diff --git a/flang/test/Semantics/omp-allocate-directive.f90 b/flang/test/Semantics/omp-allocate-directive.f90 index 62f85ce4ed1e..5904188e34e9 100644 --- a/flang/test/Semantics/omp-allocate-directive.f90 +++ b/flang/test/Semantics/omp-allocate-directive.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! Check OpenMP Allocate directive use omp_lib diff --git a/flang/test/Semantics/omp-atomic01.f90 b/flang/test/Semantics/omp-atomic01.f90 index 298f9aec53c2..7a61b5132df0 100644 --- a/flang/test/Semantics/omp-atomic01.f90 +++ b/flang/test/Semantics/omp-atomic01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! Semantic checks for OpenMP 5.0 standard 2.17.7 atomic Construct. use omp_lib diff --git a/flang/test/Semantics/omp-clause-validity01.f90 b/flang/test/Semantics/omp-clause-validity01.f90 index 505dcba4ff02..acff933cad1d 100644 --- a/flang/test/Semantics/omp-clause-validity01.f90 +++ b/flang/test/Semantics/omp-clause-validity01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp use omp_lib ! Check OpenMP clause validity for the following directives: ! diff --git a/flang/test/Semantics/omp-copyprivate01.f90 b/flang/test/Semantics/omp-copyprivate01.f90 index 08bca731af3e..cbdc89f96933 100644 --- a/flang/test/Semantics/omp-copyprivate01.f90 +++ b/flang/test/Semantics/omp-copyprivate01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.4.2 copyprivate Clause ! A list item that appears in a copyprivate clause may not appear in a diff --git a/flang/test/Semantics/omp-copyprivate02.f90 b/flang/test/Semantics/omp-copyprivate02.f90 index 6a59fe943a6f..3fc3dcbd52e8 100644 --- a/flang/test/Semantics/omp-copyprivate02.f90 +++ b/flang/test/Semantics/omp-copyprivate02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.4.2 copyprivate Clause ! Pointers with the INTENT(IN) attribute may not appear in a copyprivate clause. diff --git a/flang/test/Semantics/omp-copyprivate03.f90 b/flang/test/Semantics/omp-copyprivate03.f90 index f016232804e0..0b0de025cf9c 100644 --- a/flang/test/Semantics/omp-copyprivate03.f90 +++ b/flang/test/Semantics/omp-copyprivate03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.4.2 copyprivate Clause ! All list items that appear in the copyprivate clause must be either diff --git a/flang/test/Semantics/omp-do-schedule03.f90 b/flang/test/Semantics/omp-do-schedule03.f90 index 818482539c74..dd14aa90c93b 100644 --- a/flang/test/Semantics/omp-do-schedule03.f90 +++ b/flang/test/Semantics/omp-do-schedule03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Schedule Clause ! Test that does not catch non constant integer expressions like xx - xx. diff --git a/flang/test/Semantics/omp-do-schedule04.f90 b/flang/test/Semantics/omp-do-schedule04.f90 index 4dba5092726f..6226c6eeac9e 100644 --- a/flang/test/Semantics/omp-do-schedule04.f90 +++ b/flang/test/Semantics/omp-do-schedule04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Schedule Clause ! Test that does not catch non constant integer expressions like xx - yy. diff --git a/flang/test/Semantics/omp-do01-positivecase.f90 b/flang/test/Semantics/omp-do01-positivecase.f90 index 291b5e2a76a7..43eebbcce7da 100644 --- a/flang/test/Semantics/omp-do01-positivecase.f90 +++ b/flang/test/Semantics/omp-do01-positivecase.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct ! The loop iteration variable may not appear in a firstprivate directive. diff --git a/flang/test/Semantics/omp-do04-positivecase.f90 b/flang/test/Semantics/omp-do04-positivecase.f90 index 852aaf135b67..c6e7147545d6 100644 --- a/flang/test/Semantics/omp-do04-positivecase.f90 +++ b/flang/test/Semantics/omp-do04-positivecase.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Do Loop Constructs diff --git a/flang/test/Semantics/omp-do04.f90 b/flang/test/Semantics/omp-do04.f90 index f52f5ef1b709..511bdc51f42d 100644 --- a/flang/test/Semantics/omp-do04.f90 +++ b/flang/test/Semantics/omp-do04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct ! The loop iteration variable may not appear in a threadprivate directive. diff --git a/flang/test/Semantics/omp-do05-positivecase.f90 b/flang/test/Semantics/omp-do05-positivecase.f90 index 72d68d0fb111..c186b3a1edbe 100644 --- a/flang/test/Semantics/omp-do05-positivecase.f90 +++ b/flang/test/Semantics/omp-do05-positivecase.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct restrictions on single directive. ! A positive case diff --git a/flang/test/Semantics/omp-do06-positivecases.f90 b/flang/test/Semantics/omp-do06-positivecases.f90 index 0776817edbaa..418ddedbe05d 100644 --- a/flang/test/Semantics/omp-do06-positivecases.f90 +++ b/flang/test/Semantics/omp-do06-positivecases.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct ! The ordered clause must be present on the loop construct if any ordered diff --git a/flang/test/Semantics/omp-do09.f90 b/flang/test/Semantics/omp-do09.f90 index 9ce2757d04ba..147b1790ab9d 100644 --- a/flang/test/Semantics/omp-do09.f90 +++ b/flang/test/Semantics/omp-do09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct ! The do-loop cannot be a DO WHILE or a DO loop without loop control. diff --git a/flang/test/Semantics/omp-do10.f90 b/flang/test/Semantics/omp-do10.f90 index b06065c31631..4cb644ea9262 100644 --- a/flang/test/Semantics/omp-do10.f90 +++ b/flang/test/Semantics/omp-do10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct ! The DO loop iteration variable must be of type integer. diff --git a/flang/test/Semantics/omp-do11.f90 b/flang/test/Semantics/omp-do11.f90 index 7ce034c8c57f..5ed097f05aeb 100644 --- a/flang/test/Semantics/omp-do11.f90 +++ b/flang/test/Semantics/omp-do11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Do Loop Constructs diff --git a/flang/test/Semantics/omp-do12.f90 b/flang/test/Semantics/omp-do12.f90 index baabb7e82d4d..05614e36e15d 100644 --- a/flang/test/Semantics/omp-do12.f90 +++ b/flang/test/Semantics/omp-do12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Do Loop constructs. diff --git a/flang/test/Semantics/omp-do13.f90 b/flang/test/Semantics/omp-do13.f90 index 3a4fb9a71fd2..b1081e9ac26d 100644 --- a/flang/test/Semantics/omp-do13.f90 +++ b/flang/test/Semantics/omp-do13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct diff --git a/flang/test/Semantics/omp-do14.f90 b/flang/test/Semantics/omp-do14.f90 index df4a369095e2..3eef90ee5ef5 100644 --- a/flang/test/Semantics/omp-do14.f90 +++ b/flang/test/Semantics/omp-do14.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Do Loop constructs. diff --git a/flang/test/Semantics/omp-do15.f90 b/flang/test/Semantics/omp-do15.f90 index 955e6aad69bb..6862ba3fe1c5 100644 --- a/flang/test/Semantics/omp-do15.f90 +++ b/flang/test/Semantics/omp-do15.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct diff --git a/flang/test/Semantics/omp-do16.f90 b/flang/test/Semantics/omp-do16.f90 index 05cd817986ff..80807ec0b278 100644 --- a/flang/test/Semantics/omp-do16.f90 +++ b/flang/test/Semantics/omp-do16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Loop Construct diff --git a/flang/test/Semantics/omp-do17.f90 b/flang/test/Semantics/omp-do17.f90 index 54f315cd927b..89b3386b0381 100644 --- a/flang/test/Semantics/omp-do17.f90 +++ b/flang/test/Semantics/omp-do17.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.1 Do Loop constructs. diff --git a/flang/test/Semantics/omp-firstprivate01.f90 b/flang/test/Semantics/omp-firstprivate01.f90 index 8ff3237999f0..4eb1e47bce23 100644 --- a/flang/test/Semantics/omp-firstprivate01.f90 +++ b/flang/test/Semantics/omp-firstprivate01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.4 firstprivate Clause ! Variables that appear in a firstprivate clause on a distribute or diff --git a/flang/test/Semantics/omp-flush02.f90 b/flang/test/Semantics/omp-flush02.f90 index 6e417c49a3b0..705019f69855 100644 --- a/flang/test/Semantics/omp-flush02.f90 +++ b/flang/test/Semantics/omp-flush02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! Check OpenMP 5.0 - 2.17.8 flush Construct ! Restriction - diff --git a/flang/test/Semantics/omp-lastprivate01.f90 b/flang/test/Semantics/omp-lastprivate01.f90 index a44cdbd1be1b..f69f041f5e6c 100644 --- a/flang/test/Semantics/omp-lastprivate01.f90 +++ b/flang/test/Semantics/omp-lastprivate01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.5 lastprivate Clause ! A variable that appears in a lastprivate clause must be definable. diff --git a/flang/test/Semantics/omp-lastprivate02.f90 b/flang/test/Semantics/omp-lastprivate02.f90 index a777739b4193..1d2c0890e769 100644 --- a/flang/test/Semantics/omp-lastprivate02.f90 +++ b/flang/test/Semantics/omp-lastprivate02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.5 lastprivate Clause ! A list item that is private within a parallel region, or that appears in diff --git a/flang/test/Semantics/omp-reduction01.f90 b/flang/test/Semantics/omp-reduction01.f90 index f518583fd5f0..d58e1fa9f7ec 100644 --- a/flang/test/Semantics/omp-reduction01.f90 +++ b/flang/test/Semantics/omp-reduction01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause program omp_reduction diff --git a/flang/test/Semantics/omp-reduction02.f90 b/flang/test/Semantics/omp-reduction02.f90 index 1ffbac3a845f..1806e35dfaf9 100644 --- a/flang/test/Semantics/omp-reduction02.f90 +++ b/flang/test/Semantics/omp-reduction02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause program omp_reduction diff --git a/flang/test/Semantics/omp-reduction03.f90 b/flang/test/Semantics/omp-reduction03.f90 index d2876566a95c..08dca8c051ae 100644 --- a/flang/test/Semantics/omp-reduction03.f90 +++ b/flang/test/Semantics/omp-reduction03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause diff --git a/flang/test/Semantics/omp-reduction04.f90 b/flang/test/Semantics/omp-reduction04.f90 index 5441b2baccd0..aed5b65040c1 100644 --- a/flang/test/Semantics/omp-reduction04.f90 +++ b/flang/test/Semantics/omp-reduction04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause program omp_Reduction diff --git a/flang/test/Semantics/omp-reduction05.f90 b/flang/test/Semantics/omp-reduction05.f90 index bccd9300e59f..cd58f7c45f8f 100644 --- a/flang/test/Semantics/omp-reduction05.f90 +++ b/flang/test/Semantics/omp-reduction05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause diff --git a/flang/test/Semantics/omp-reduction06.f90 b/flang/test/Semantics/omp-reduction06.f90 index 9d9ad2405e69..e8ca1a5cb5b2 100644 --- a/flang/test/Semantics/omp-reduction06.f90 +++ b/flang/test/Semantics/omp-reduction06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause diff --git a/flang/test/Semantics/omp-reduction07.f90 b/flang/test/Semantics/omp-reduction07.f90 index 1123c9084897..9cf79210de33 100644 --- a/flang/test/Semantics/omp-reduction07.f90 +++ b/flang/test/Semantics/omp-reduction07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause program omp_reduction diff --git a/flang/test/Semantics/omp-reduction08.f90 b/flang/test/Semantics/omp-reduction08.f90 index c2c2d4975782..cb64750a969b 100644 --- a/flang/test/Semantics/omp-reduction08.f90 +++ b/flang/test/Semantics/omp-reduction08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause Positive cases diff --git a/flang/test/Semantics/omp-reduction09.f90 b/flang/test/Semantics/omp-reduction09.f90 index 5612d1a0b8f6..1a215f6ca075 100644 --- a/flang/test/Semantics/omp-reduction09.f90 +++ b/flang/test/Semantics/omp-reduction09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause Positive cases. !DEF: /omp_reduction MainProgram diff --git a/flang/test/Semantics/omp-reduction10.f90 b/flang/test/Semantics/omp-reduction10.f90 index cecbf54222fa..ba8c6a0f8de5 100644 --- a/flang/test/Semantics/omp-reduction10.f90 +++ b/flang/test/Semantics/omp-reduction10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause program omp_reduction diff --git a/flang/test/Semantics/omp-resolve06.f90 b/flang/test/Semantics/omp-resolve06.f90 index 0909c0f54a57..543a438ae220 100644 --- a/flang/test/Semantics/omp-resolve06.f90 +++ b/flang/test/Semantics/omp-resolve06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp use omp_lib !2.11.4 Allocate Clause !For any list item that is specified in the allocate diff --git a/flang/test/Semantics/omp-single01.f90 b/flang/test/Semantics/omp-single01.f90 index ea09872a79e9..7abc0a2c1b3c 100644 --- a/flang/test/Semantics/omp-single01.f90 +++ b/flang/test/Semantics/omp-single01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.3 single Construct ! Symbol present on multiple clauses diff --git a/flang/test/Semantics/omp-single02.f90 b/flang/test/Semantics/omp-single02.f90 index bdb0003d2dbb..04a1cc2f6a07 100644 --- a/flang/test/Semantics/omp-single02.f90 +++ b/flang/test/Semantics/omp-single02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 -fopenmp +! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.7.3 single Construct ! Copyprivate variable is not thread private or private in outer context diff --git a/flang/test/Semantics/omp-symbol01.f90 b/flang/test/Semantics/omp-symbol01.f90 index 46195edfaa49..0246ed84dacc 100644 --- a/flang/test/Semantics/omp-symbol01.f90 +++ b/flang/test/Semantics/omp-symbol01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! Test clauses that accept list. ! 2.1 Directive Format diff --git a/flang/test/Semantics/omp-symbol02.f90 b/flang/test/Semantics/omp-symbol02.f90 index deccdc92afb9..f838146968e7 100644 --- a/flang/test/Semantics/omp-symbol02.f90 +++ b/flang/test/Semantics/omp-symbol02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! 1.4.1 Structure of the OpenMP Memory Model diff --git a/flang/test/Semantics/omp-symbol03.f90 b/flang/test/Semantics/omp-symbol03.f90 index 4baaabc08737..38e30a4f7a57 100644 --- a/flang/test/Semantics/omp-symbol03.f90 +++ b/flang/test/Semantics/omp-symbol03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! 1.4.1 Structure of the OpenMP Memory Model ! In the inner OpenMP region, SHARED `a` refers to the `a` in the outer OpenMP diff --git a/flang/test/Semantics/omp-symbol04.f90 b/flang/test/Semantics/omp-symbol04.f90 index 8d1461d75543..673e11d17875 100644 --- a/flang/test/Semantics/omp-symbol04.f90 +++ b/flang/test/Semantics/omp-symbol04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! 2.15.3 Data-Sharing Attribute Clauses ! Both PARALLEL and DO (worksharing) directives need to create new scope, diff --git a/flang/test/Semantics/omp-symbol05.f90 b/flang/test/Semantics/omp-symbol05.f90 index e76b5c11b1aa..7ca28de5566c 100644 --- a/flang/test/Semantics/omp-symbol05.f90 +++ b/flang/test/Semantics/omp-symbol05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! 2.15.2 threadprivate Directive ! The threadprivate directive specifies that variables are replicated, diff --git a/flang/test/Semantics/omp-symbol06.f90 b/flang/test/Semantics/omp-symbol06.f90 index 1a031a7a5a2a..14a652e2c141 100644 --- a/flang/test/Semantics/omp-symbol06.f90 +++ b/flang/test/Semantics/omp-symbol06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! 2.15.3 Data-Sharing Attribute Clauses ! A list item that specifies a given variable may not appear in more than diff --git a/flang/test/Semantics/omp-symbol07.f90 b/flang/test/Semantics/omp-symbol07.f90 index 2098bd89bba5..eef7caafafcb 100644 --- a/flang/test/Semantics/omp-symbol07.f90 +++ b/flang/test/Semantics/omp-symbol07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! Generic tests ! 1. subroutine or function calls should not be fixed for DSA or DMA diff --git a/flang/test/Semantics/omp-symbol08.f90 b/flang/test/Semantics/omp-symbol08.f90 index 233e36733556..61ea5c3e8a4d 100644 --- a/flang/test/Semantics/omp-symbol08.f90 +++ b/flang/test/Semantics/omp-symbol08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp +! RUN: %S/test_symbols.sh %s %t %flang_fc1 -fopenmp ! 2.15.1.1 Predetermined rules for associated do-loops index variable ! a) The loop iteration variable(s) in the associated do-loop(s) of a do, diff --git a/flang/test/Semantics/procinterface01.f90 b/flang/test/Semantics/procinterface01.f90 index 8f331682a028..63c83afa67fa 100644 --- a/flang/test/Semantics/procinterface01.f90 +++ b/flang/test/Semantics/procinterface01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Tests for "proc-interface" semantics. ! These cases are all valid. diff --git a/flang/test/Semantics/reshape.f90 b/flang/test/Semantics/reshape.f90 index 7749df60b0dc..6fee2fdd9078 100644 --- a/flang/test/Semantics/reshape.f90 +++ b/flang/test/Semantics/reshape.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !Tests for RESHAPE program reshaper diff --git a/flang/test/Semantics/resolve01.f90 b/flang/test/Semantics/resolve01.f90 index 7373e414e286..a29a0e09025f 100644 --- a/flang/test/Semantics/resolve01.f90 +++ b/flang/test/Semantics/resolve01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 integer :: x !ERROR: The type of 'x' has already been declared real :: x diff --git a/flang/test/Semantics/resolve02.f90 b/flang/test/Semantics/resolve02.f90 index df5b6b5ba8c5..8df7c1d9a930 100644 --- a/flang/test/Semantics/resolve02.f90 +++ b/flang/test/Semantics/resolve02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s !ERROR: Declaration of 'x' conflicts with its use as internal procedure real :: x diff --git a/flang/test/Semantics/resolve03.f90 b/flang/test/Semantics/resolve03.f90 index 4aca98575aad..d14fb79f9e4a 100644 --- a/flang/test/Semantics/resolve03.f90 +++ b/flang/test/Semantics/resolve03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 implicit none integer :: x !ERROR: No explicit type declared for 'y' diff --git a/flang/test/Semantics/resolve04.f90 b/flang/test/Semantics/resolve04.f90 index d0bad7e8800a..53f1bed227ca 100644 --- a/flang/test/Semantics/resolve04.f90 +++ b/flang/test/Semantics/resolve04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !ERROR: No explicit type declared for 'f' function f() implicit none diff --git a/flang/test/Semantics/resolve05.f90 b/flang/test/Semantics/resolve05.f90 index 7f365335e74d..365ae715bd92 100644 --- a/flang/test/Semantics/resolve05.f90 +++ b/flang/test/Semantics/resolve05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 program p integer :: p ! this is ok end diff --git a/flang/test/Semantics/resolve06.f90 b/flang/test/Semantics/resolve06.f90 index 0ea1f7e80300..e2dfecaf5fbc 100644 --- a/flang/test/Semantics/resolve06.f90 +++ b/flang/test/Semantics/resolve06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 implicit none allocatable :: x integer :: x diff --git a/flang/test/Semantics/resolve07.f90 b/flang/test/Semantics/resolve07.f90 index 68dd7d3b90ae..5c1722415b92 100644 --- a/flang/test/Semantics/resolve07.f90 +++ b/flang/test/Semantics/resolve07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 integer :: x(2) !ERROR: The dimensions of 'x' have already been declared diff --git a/flang/test/Semantics/resolve08.f90 b/flang/test/Semantics/resolve08.f90 index 7d978b9cc550..abe25030ef51 100644 --- a/flang/test/Semantics/resolve08.f90 +++ b/flang/test/Semantics/resolve08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 integer :: g(10) f(i) = i + 1 ! statement function g(i) = i + 2 ! mis-parsed array assignment diff --git a/flang/test/Semantics/resolve09.f90 b/flang/test/Semantics/resolve09.f90 index 9b1173dd7c0a..93b9781879d9 100644 --- a/flang/test/Semantics/resolve09.f90 +++ b/flang/test/Semantics/resolve09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 integer :: y procedure() :: a procedure(real) :: b diff --git a/flang/test/Semantics/resolve10.f90 b/flang/test/Semantics/resolve10.f90 index 570ea0002526..5d00f7e9494f 100644 --- a/flang/test/Semantics/resolve10.f90 +++ b/flang/test/Semantics/resolve10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m public type t diff --git a/flang/test/Semantics/resolve101.f90 b/flang/test/Semantics/resolve101.f90 index 90fca2b04081..0c9964f4895b 100644 --- a/flang/test/Semantics/resolve101.f90 +++ b/flang/test/Semantics/resolve101.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Ensure that spurious errors do not arise from FinishSpecificationPart ! checking on a nested specification part. real, save :: x diff --git a/flang/test/Semantics/resolve102.f90 b/flang/test/Semantics/resolve102.f90 index c5b3f53bbdc4..6b2a79497687 100644 --- a/flang/test/Semantics/resolve102.f90 +++ b/flang/test/Semantics/resolve102.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for circularly defined procedures !ERROR: Procedure 'sub' is recursively defined. Procedures in the cycle: 'sub', 'p2' diff --git a/flang/test/Semantics/resolve104.f90 b/flang/test/Semantics/resolve104.f90 index 176c9d68d9e9..90449daeb20b 100644 --- a/flang/test/Semantics/resolve104.f90 +++ b/flang/test/Semantics/resolve104.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test constant folding of type parameter values both a base value and a ! parameter name are supplied. ! diff --git a/flang/test/Semantics/resolve11.f90 b/flang/test/Semantics/resolve11.f90 index 06c57b6e4cb8..0cfd9f2ca594 100644 --- a/flang/test/Semantics/resolve11.f90 +++ b/flang/test/Semantics/resolve11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m public i integer, private :: j diff --git a/flang/test/Semantics/resolve12.f90 b/flang/test/Semantics/resolve12.f90 index 241047a74d00..a66d22d1aab6 100644 --- a/flang/test/Semantics/resolve12.f90 +++ b/flang/test/Semantics/resolve12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 end diff --git a/flang/test/Semantics/resolve13.f90 b/flang/test/Semantics/resolve13.f90 index f6105b1ec8a8..b3b6c94165d2 100644 --- a/flang/test/Semantics/resolve13.f90 +++ b/flang/test/Semantics/resolve13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 integer :: x integer, private :: y diff --git a/flang/test/Semantics/resolve14.f90 b/flang/test/Semantics/resolve14.f90 index 44ece0b18644..c0ac4e1e4965 100644 --- a/flang/test/Semantics/resolve14.f90 +++ b/flang/test/Semantics/resolve14.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 integer :: x integer :: y diff --git a/flang/test/Semantics/resolve15.f90 b/flang/test/Semantics/resolve15.f90 index c520c5886599..b7a3e8023cec 100644 --- a/flang/test/Semantics/resolve15.f90 +++ b/flang/test/Semantics/resolve15.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m real :: var interface i diff --git a/flang/test/Semantics/resolve16.f90 b/flang/test/Semantics/resolve16.f90 index 6e8ab5b3862c..f60e41f41d67 100644 --- a/flang/test/Semantics/resolve16.f90 +++ b/flang/test/Semantics/resolve16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m interface subroutine sub0 diff --git a/flang/test/Semantics/resolve17.f90 b/flang/test/Semantics/resolve17.f90 index 2a2688749209..425cc0014624 100644 --- a/flang/test/Semantics/resolve17.f90 +++ b/flang/test/Semantics/resolve17.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m integer :: foo !Note: PGI, Intel, and GNU allow this; NAG and Sun do not diff --git a/flang/test/Semantics/resolve18.f90 b/flang/test/Semantics/resolve18.f90 index 334bb71c4f08..45980361ae56 100644 --- a/flang/test/Semantics/resolve18.f90 +++ b/flang/test/Semantics/resolve18.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 implicit none contains diff --git a/flang/test/Semantics/resolve19.f90 b/flang/test/Semantics/resolve19.f90 index b8fe8e822ed4..75f143dde53a 100644 --- a/flang/test/Semantics/resolve19.f90 +++ b/flang/test/Semantics/resolve19.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m interface a subroutine s(x) diff --git a/flang/test/Semantics/resolve20.f90 b/flang/test/Semantics/resolve20.f90 index 94bd4c18a6a0..2bb78c660e34 100644 --- a/flang/test/Semantics/resolve20.f90 +++ b/flang/test/Semantics/resolve20.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m abstract interface subroutine foo diff --git a/flang/test/Semantics/resolve21.f90 b/flang/test/Semantics/resolve21.f90 index 0b63f1698da9..73634de7c7c5 100644 --- a/flang/test/Semantics/resolve21.f90 +++ b/flang/test/Semantics/resolve21.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 type :: t integer :: i diff --git a/flang/test/Semantics/resolve22.f90 b/flang/test/Semantics/resolve22.f90 index 33d5c9567143..4176fd68c738 100644 --- a/flang/test/Semantics/resolve22.f90 +++ b/flang/test/Semantics/resolve22.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 !OK: interface followed by type with same name interface t diff --git a/flang/test/Semantics/resolve23.f90 b/flang/test/Semantics/resolve23.f90 index 01178a1264e3..28c97547ced9 100644 --- a/flang/test/Semantics/resolve23.f90 +++ b/flang/test/Semantics/resolve23.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m type :: t real :: y diff --git a/flang/test/Semantics/resolve24.f90 b/flang/test/Semantics/resolve24.f90 index 22fe6ae305ae..985eebc558ea 100644 --- a/flang/test/Semantics/resolve24.f90 +++ b/flang/test/Semantics/resolve24.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine test1 !ERROR: Generic interface 'foo' has both a function and a subroutine interface foo diff --git a/flang/test/Semantics/resolve25.f90 b/flang/test/Semantics/resolve25.f90 index ec0a98ad6a59..e31d8940bd3b 100644 --- a/flang/test/Semantics/resolve25.f90 +++ b/flang/test/Semantics/resolve25.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m interface foo real function s1(x) diff --git a/flang/test/Semantics/resolve26.f90 b/flang/test/Semantics/resolve26.f90 index 6daf8b640741..1650c06577c0 100644 --- a/flang/test/Semantics/resolve26.f90 +++ b/flang/test/Semantics/resolve26.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 interface module subroutine s() diff --git a/flang/test/Semantics/resolve27.f90 b/flang/test/Semantics/resolve27.f90 index 72d69189c7e3..ceb062fee315 100644 --- a/flang/test/Semantics/resolve27.f90 +++ b/flang/test/Semantics/resolve27.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m interface module subroutine s() diff --git a/flang/test/Semantics/resolve28.f90 b/flang/test/Semantics/resolve28.f90 index c5c23a168e82..f11c9900420a 100644 --- a/flang/test/Semantics/resolve28.f90 +++ b/flang/test/Semantics/resolve28.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s type t end type diff --git a/flang/test/Semantics/resolve29.f90 b/flang/test/Semantics/resolve29.f90 index d9ad4aa11b38..dbcae4109e7d 100644 --- a/flang/test/Semantics/resolve29.f90 +++ b/flang/test/Semantics/resolve29.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m type t1 end type diff --git a/flang/test/Semantics/resolve30.f90 b/flang/test/Semantics/resolve30.f90 index f42da9684e09..2e923284b51d 100644 --- a/flang/test/Semantics/resolve30.f90 +++ b/flang/test/Semantics/resolve30.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 integer x block diff --git a/flang/test/Semantics/resolve31.f90 b/flang/test/Semantics/resolve31.f90 index f22f7e5af29e..e6cc9e20968e 100644 --- a/flang/test/Semantics/resolve31.f90 +++ b/flang/test/Semantics/resolve31.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C735 If EXTENDS appears, SEQUENCE shall not appear. ! C738 The same private-or-sequence shall not appear more than once in a ! given derived-type-def . diff --git a/flang/test/Semantics/resolve32.f90 b/flang/test/Semantics/resolve32.f90 index 326ae1f909cf..43ba45a7c7f7 100644 --- a/flang/test/Semantics/resolve32.f90 +++ b/flang/test/Semantics/resolve32.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m2 public s2, s4 private s3 diff --git a/flang/test/Semantics/resolve33.f90 b/flang/test/Semantics/resolve33.f90 index 380a1ab2b8a7..79c2f096896c 100644 --- a/flang/test/Semantics/resolve33.f90 +++ b/flang/test/Semantics/resolve33.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Derived type parameters ! C731 The same type-param-name shall not appear more than once in a given ! derived-type-stmt. diff --git a/flang/test/Semantics/resolve34.f90 b/flang/test/Semantics/resolve34.f90 index 93dcd2a43420..4497a30ad77a 100644 --- a/flang/test/Semantics/resolve34.f90 +++ b/flang/test/Semantics/resolve34.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Extended derived types module m1 diff --git a/flang/test/Semantics/resolve35.f90 b/flang/test/Semantics/resolve35.f90 index db66adbdea05..9dfba8e8586a 100644 --- a/flang/test/Semantics/resolve35.f90 +++ b/flang/test/Semantics/resolve35.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Construct names subroutine s1 diff --git a/flang/test/Semantics/resolve36.f90 b/flang/test/Semantics/resolve36.f90 index 38bc21dbd201..55017ffc767a 100644 --- a/flang/test/Semantics/resolve36.f90 +++ b/flang/test/Semantics/resolve36.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1568 The procedure-name shall have been declared to be a separate module ! procedure in the containing program unit or an ancestor of that program unit. diff --git a/flang/test/Semantics/resolve37.f90 b/flang/test/Semantics/resolve37.f90 index 1db9d13ddb17..a33b0a3541b5 100644 --- a/flang/test/Semantics/resolve37.f90 +++ b/flang/test/Semantics/resolve37.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C701 The type-param-value for a kind type parameter shall be a constant ! expression. This constraint looks like a mistake in the standard. integer, parameter :: k = 8 diff --git a/flang/test/Semantics/resolve38.f90 b/flang/test/Semantics/resolve38.f90 index a36ecce384b9..2a4e88e1e32f 100644 --- a/flang/test/Semantics/resolve38.f90 +++ b/flang/test/Semantics/resolve38.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C772 module m1 type t1 diff --git a/flang/test/Semantics/resolve39.f90 b/flang/test/Semantics/resolve39.f90 index 47a019eb7e44..c3eca9fa274f 100644 --- a/flang/test/Semantics/resolve39.f90 +++ b/flang/test/Semantics/resolve39.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 implicit none real(8) :: x = 2.0 diff --git a/flang/test/Semantics/resolve40.f90 b/flang/test/Semantics/resolve40.f90 index 3ac59ac91903..eb8150d0f59b 100644 --- a/flang/test/Semantics/resolve40.f90 +++ b/flang/test/Semantics/resolve40.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 namelist /nl/x block diff --git a/flang/test/Semantics/resolve41.f90 b/flang/test/Semantics/resolve41.f90 index 61e935f5c31e..de864cea210d 100644 --- a/flang/test/Semantics/resolve41.f90 +++ b/flang/test/Semantics/resolve41.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m implicit none real, parameter :: a = 8.0 diff --git a/flang/test/Semantics/resolve42.f90 b/flang/test/Semantics/resolve42.f90 index 0ae7459ab089..f4063970287e 100644 --- a/flang/test/Semantics/resolve42.f90 +++ b/flang/test/Semantics/resolve42.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1 !ERROR: Array 'z' without ALLOCATABLE or POINTER attribute must have explicit shape common x, y(4), z(:) diff --git a/flang/test/Semantics/resolve43.f90 b/flang/test/Semantics/resolve43.f90 index 18b8fa6a48be..1cd97f9cf6f6 100644 --- a/flang/test/Semantics/resolve43.f90 +++ b/flang/test/Semantics/resolve43.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Error tests for structure constructors. ! Errors caught by expression resolution are tested elsewhere; these are the ! errors meant to be caught by name resolution, as well as acceptable use diff --git a/flang/test/Semantics/resolve44.f90 b/flang/test/Semantics/resolve44.f90 index 3ad70d49c82a..f11f6a5eefd5 100644 --- a/flang/test/Semantics/resolve44.f90 +++ b/flang/test/Semantics/resolve44.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Error tests for recursive use of derived types. ! C744 If neither the POINTER nor the ALLOCATABLE attribute is specified, the ! declaration-type-spec in the component-def-stmt shall specify an intrinsic diff --git a/flang/test/Semantics/resolve45.f90 b/flang/test/Semantics/resolve45.f90 index c2a96915836e..4b0b4d93c14f 100644 --- a/flang/test/Semantics/resolve45.f90 +++ b/flang/test/Semantics/resolve45.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 function f1(x, y) integer x !ERROR: SAVE attribute may not be applied to dummy argument 'x' diff --git a/flang/test/Semantics/resolve46.f90 b/flang/test/Semantics/resolve46.f90 index 03b43fa7b340..dcce05ebd5f0 100644 --- a/flang/test/Semantics/resolve46.f90 +++ b/flang/test/Semantics/resolve46.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C1030 - pointers to intrinsic procedures program main intrinsic :: cos ! a specific & generic intrinsic name diff --git a/flang/test/Semantics/resolve47.f90 b/flang/test/Semantics/resolve47.f90 index a469a971e3de..723754bfe9c3 100644 --- a/flang/test/Semantics/resolve47.f90 +++ b/flang/test/Semantics/resolve47.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 !ERROR: Logical constant '.true.' may not be used as a defined operator interface operator(.TRUE.) diff --git a/flang/test/Semantics/resolve48.f90 b/flang/test/Semantics/resolve48.f90 index 78f8b3aceca1..f6928d72d716 100644 --- a/flang/test/Semantics/resolve48.f90 +++ b/flang/test/Semantics/resolve48.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test correct use-association of a derived type. module m1 implicit none diff --git a/flang/test/Semantics/resolve49.f90 b/flang/test/Semantics/resolve49.f90 index 5ead0784603b..2c0df6ba752c 100644 --- a/flang/test/Semantics/resolve49.f90 +++ b/flang/test/Semantics/resolve49.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test section subscript program p1 real :: a(10,10) diff --git a/flang/test/Semantics/resolve50.f90 b/flang/test/Semantics/resolve50.f90 index 3ba16fa4e406..1889a5a2fe8e 100644 --- a/flang/test/Semantics/resolve50.f90 +++ b/flang/test/Semantics/resolve50.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test coarray association in CHANGE TEAM statement subroutine s1 diff --git a/flang/test/Semantics/resolve51.f90 b/flang/test/Semantics/resolve51.f90 index bf977765b17d..08ff4d133b17 100644 --- a/flang/test/Semantics/resolve51.f90 +++ b/flang/test/Semantics/resolve51.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test SELECT TYPE errors: C1157 subroutine s1() diff --git a/flang/test/Semantics/resolve52.f90 b/flang/test/Semantics/resolve52.f90 index 0b3ebd0dc104..2e7484065fc1 100644 --- a/flang/test/Semantics/resolve52.f90 +++ b/flang/test/Semantics/resolve52.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for C760: ! The passed-object dummy argument shall be a scalar, nonpointer, nonallocatable ! dummy data object with the same declared type as the type being defined; diff --git a/flang/test/Semantics/resolve53.f90 b/flang/test/Semantics/resolve53.f90 index 64b0d536fa17..c2cbe38ad934 100644 --- a/flang/test/Semantics/resolve53.f90 +++ b/flang/test/Semantics/resolve53.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! 15.4.3.4.5 Restrictions on generic declarations ! Specific procedures of generic interfaces must be distinguishable. diff --git a/flang/test/Semantics/resolve54.f90 b/flang/test/Semantics/resolve54.f90 index 32c3826a112d..f0a07403b819 100644 --- a/flang/test/Semantics/resolve54.f90 +++ b/flang/test/Semantics/resolve54.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests based on examples in C.10.6 ! C.10.6(10) diff --git a/flang/test/Semantics/resolve55.f90 b/flang/test/Semantics/resolve55.f90 index 48af4abcf28b..80aad3c26157 100644 --- a/flang/test/Semantics/resolve55.f90 +++ b/flang/test/Semantics/resolve55.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for C1128: ! A variable-name that appears in a LOCAL or LOCAL_INIT locality-spec shall not ! have the ALLOCATABLE; INTENT (IN); or OPTIONAL attribute; shall not be of diff --git a/flang/test/Semantics/resolve56.f90 b/flang/test/Semantics/resolve56.f90 index 9b4dc2f7b7b7..29585c4d37b1 100644 --- a/flang/test/Semantics/resolve56.f90 +++ b/flang/test/Semantics/resolve56.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test that associations constructs can be correctly combined. The intrinsic ! functions are not what is tested here, they are only use to reveal the types ! of local variables. diff --git a/flang/test/Semantics/resolve57.f90 b/flang/test/Semantics/resolve57.f90 index fb1541488c38..0ce006c3235f 100644 --- a/flang/test/Semantics/resolve57.f90 +++ b/flang/test/Semantics/resolve57.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for the last sentence of C1128: !A variable-name that is not permitted to appear in a variable definition !context shall not appear in a LOCAL or LOCAL_INIT locality-spec. diff --git a/flang/test/Semantics/resolve58.f90 b/flang/test/Semantics/resolve58.f90 index ca4359059c44..8c1cf26730d3 100644 --- a/flang/test/Semantics/resolve58.f90 +++ b/flang/test/Semantics/resolve58.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1(x, y) !ERROR: Array pointer 'x' must have deferred shape or assumed rank real, pointer :: x(1:) ! C832 diff --git a/flang/test/Semantics/resolve59.f90 b/flang/test/Semantics/resolve59.f90 index 4deead1ab977..76f619cd4e5e 100644 --- a/flang/test/Semantics/resolve59.f90 +++ b/flang/test/Semantics/resolve59.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Testing 15.6.2.2 point 4 (What function-name refers to depending on the ! presence of RESULT). diff --git a/flang/test/Semantics/resolve60.f90 b/flang/test/Semantics/resolve60.f90 index ea475edae7f5..a03079f3bac7 100644 --- a/flang/test/Semantics/resolve60.f90 +++ b/flang/test/Semantics/resolve60.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Testing 7.6 enum ! OK diff --git a/flang/test/Semantics/resolve61.f90 b/flang/test/Semantics/resolve61.f90 index fc27caa814f2..3df186106ea5 100644 --- a/flang/test/Semantics/resolve61.f90 +++ b/flang/test/Semantics/resolve61.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 program p1 integer(8) :: a, b, c, d pointer(a, b) diff --git a/flang/test/Semantics/resolve62.f90 b/flang/test/Semantics/resolve62.f90 index 7ad7dffb5dfb..7314a5fe6ec4 100644 --- a/flang/test/Semantics/resolve62.f90 +++ b/flang/test/Semantics/resolve62.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Resolve generic based on number of arguments subroutine s1 interface f diff --git a/flang/test/Semantics/resolve63.f90 b/flang/test/Semantics/resolve63.f90 index 7fe6facf0511..7ae6458a691f 100644 --- a/flang/test/Semantics/resolve63.f90 +++ b/flang/test/Semantics/resolve63.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Invalid operand types when user-defined operator is available module m1 type :: t diff --git a/flang/test/Semantics/resolve65.f90 b/flang/test/Semantics/resolve65.f90 index e02a90c344cc..14e8715fbf6a 100644 --- a/flang/test/Semantics/resolve65.f90 +++ b/flang/test/Semantics/resolve65.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test restrictions on what subprograms can be used for defined assignment. module m1 diff --git a/flang/test/Semantics/resolve66.f90 b/flang/test/Semantics/resolve66.f90 index 33a027a5883e..f812cfba6199 100644 --- a/flang/test/Semantics/resolve66.f90 +++ b/flang/test/Semantics/resolve66.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test that user-defined assignment is used in the right places module m1 diff --git a/flang/test/Semantics/resolve67.f90 b/flang/test/Semantics/resolve67.f90 index 08042a21f6d6..ce5ae8b5f580 100644 --- a/flang/test/Semantics/resolve67.f90 +++ b/flang/test/Semantics/resolve67.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test restrictions on what subprograms can be used for defined operators. ! See: 15.4.3.4.2 diff --git a/flang/test/Semantics/resolve68.f90 b/flang/test/Semantics/resolve68.f90 index 2a452a03ddf6..67eb1a31bd53 100644 --- a/flang/test/Semantics/resolve68.f90 +++ b/flang/test/Semantics/resolve68.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test resolution of type-bound generics. module m1 diff --git a/flang/test/Semantics/resolve69.f90 b/flang/test/Semantics/resolve69.f90 index a1c8cf6b8168..515d8602fda9 100644 --- a/flang/test/Semantics/resolve69.f90 +++ b/flang/test/Semantics/resolve69.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1() ! C701 (R701) The type-param-value for a kind type parameter shall be a ! constant expression. diff --git a/flang/test/Semantics/resolve70.f90 b/flang/test/Semantics/resolve70.f90 index d86016e76f9d..be49df5547c5 100644 --- a/flang/test/Semantics/resolve70.f90 +++ b/flang/test/Semantics/resolve70.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C703 (R702) The derived-type-spec shall not specify an abstract type (7.5.7). ! This constraint refers to the derived-type-spec in a type-spec. A type-spec ! can appear in an ALLOCATE statement, an ac-spec for an array constructor, and diff --git a/flang/test/Semantics/resolve71.f90 b/flang/test/Semantics/resolve71.f90 index 8d204d399149..bcebd7c269e5 100644 --- a/flang/test/Semantics/resolve71.f90 +++ b/flang/test/Semantics/resolve71.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C708 An entity declared with the CLASS keyword shall be a dummy argument ! or have the ALLOCATABLE or POINTER attribute. subroutine s() diff --git a/flang/test/Semantics/resolve72.f90 b/flang/test/Semantics/resolve72.f90 index 516bd689e403..4b955f3f43a9 100644 --- a/flang/test/Semantics/resolve72.f90 +++ b/flang/test/Semantics/resolve72.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C709 An assumed-type entity shall be a dummy data object that does not have ! the ALLOCATABLE, CODIMENSION, INTENT (OUT), POINTER, or VALUE attribute and ! is not an explicit-shape array. diff --git a/flang/test/Semantics/resolve73.f90 b/flang/test/Semantics/resolve73.f90 index 5640c18fc86b..4e293468d577 100644 --- a/flang/test/Semantics/resolve73.f90 +++ b/flang/test/Semantics/resolve73.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C721 A type-param-value of * shall be used only ! * to declare a dummy argument, ! * to declare a named constant, diff --git a/flang/test/Semantics/resolve74.f90 b/flang/test/Semantics/resolve74.f90 index 4c0ca0738e16..1dedb189b7db 100644 --- a/flang/test/Semantics/resolve74.f90 +++ b/flang/test/Semantics/resolve74.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C722 A function name shall not be declared with an asterisk type-param-value ! unless it is of type CHARACTER and is the name of a dummy function or the ! name of the result of an external function. diff --git a/flang/test/Semantics/resolve75.f90 b/flang/test/Semantics/resolve75.f90 index a9a8ca0f1121..1f49639a606f 100644 --- a/flang/test/Semantics/resolve75.f90 +++ b/flang/test/Semantics/resolve75.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C726 The length specified for a character statement function or for a ! statement function dummy argument of type character shall be a constant ! expression. diff --git a/flang/test/Semantics/resolve76.f90 b/flang/test/Semantics/resolve76.f90 index 7d40184f3c52..14afed152d3e 100644 --- a/flang/test/Semantics/resolve76.f90 +++ b/flang/test/Semantics/resolve76.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! 15.6.2.5(3) diff --git a/flang/test/Semantics/resolve77.f90 b/flang/test/Semantics/resolve77.f90 index e21de909cf3b..e38efab4675f 100644 --- a/flang/test/Semantics/resolve77.f90 +++ b/flang/test/Semantics/resolve77.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests valid and invalid usage of forward references to procedures ! in specification expressions. module m diff --git a/flang/test/Semantics/resolve78.f90 b/flang/test/Semantics/resolve78.f90 index 92a6cf8361ae..99b15dbad80e 100644 --- a/flang/test/Semantics/resolve78.f90 +++ b/flang/test/Semantics/resolve78.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m ! C743 No component-attr-spec shall appear more than once in a ! given component-def-stmt. diff --git a/flang/test/Semantics/resolve79.f90 b/flang/test/Semantics/resolve79.f90 index 1545aad97dbb..822e1f864242 100644 --- a/flang/test/Semantics/resolve79.f90 +++ b/flang/test/Semantics/resolve79.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m ! C755 The same proc-component-attr-spec shall not appear more than once in a ! given proc-component-def-stmt. diff --git a/flang/test/Semantics/resolve80.f90 b/flang/test/Semantics/resolve80.f90 index 689187d4e15e..01797182d6d9 100644 --- a/flang/test/Semantics/resolve80.f90 +++ b/flang/test/Semantics/resolve80.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m !C778 The same binding-attr shall not appear more than once in a given !binding-attr-list. diff --git a/flang/test/Semantics/resolve81.f90 b/flang/test/Semantics/resolve81.f90 index 956d57f18d1c..66b05ca196dc 100644 --- a/flang/test/Semantics/resolve81.f90 +++ b/flang/test/Semantics/resolve81.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C801 The same attr-spec shall not appear more than once in a given ! type-declaration-stmt. ! diff --git a/flang/test/Semantics/resolve82.f90 b/flang/test/Semantics/resolve82.f90 index 10cde732546f..63ce1dadf726 100644 --- a/flang/test/Semantics/resolve82.f90 +++ b/flang/test/Semantics/resolve82.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C815 An entity shall not be explicitly given any attribute more than once in ! a scoping unit. ! diff --git a/flang/test/Semantics/resolve83.f90 b/flang/test/Semantics/resolve83.f90 index 94f36a13b5dc..2361700abaaf 100644 --- a/flang/test/Semantics/resolve83.f90 +++ b/flang/test/Semantics/resolve83.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m ! For C1543 diff --git a/flang/test/Semantics/resolve84.f90 b/flang/test/Semantics/resolve84.f90 index 89b8f2e815ec..251178a4dbd7 100644 --- a/flang/test/Semantics/resolve84.f90 +++ b/flang/test/Semantics/resolve84.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C729 A derived type type-name shall not be DOUBLEPRECISION or the same as ! the name of any intrinsic type defined in this document. subroutine s() diff --git a/flang/test/Semantics/resolve85.f90 b/flang/test/Semantics/resolve85.f90 index 44e6519779c0..59cb3e2db40e 100644 --- a/flang/test/Semantics/resolve85.f90 +++ b/flang/test/Semantics/resolve85.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m ! C730 The same type-attr-spec shall not appear more than once in a given ! derived-type-stmt. diff --git a/flang/test/Semantics/resolve86.f90 b/flang/test/Semantics/resolve86.f90 index 4885e63a1c0e..b2d116f20272 100644 --- a/flang/test/Semantics/resolve86.f90 +++ b/flang/test/Semantics/resolve86.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C736 If EXTENDS appears and the type being defined has a coarray ultimate ! component, its parent type shall have a coarray ultimate component. ! diff --git a/flang/test/Semantics/resolve87.f90 b/flang/test/Semantics/resolve87.f90 index f2f098bfae37..1eb7662b3d34 100644 --- a/flang/test/Semantics/resolve87.f90 +++ b/flang/test/Semantics/resolve87.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C737 If EXTENDS appears and the type being defined has a potential ! subobject component of type EVENT_TYPE or LOCK_TYPE from the intrinsic ! module ISO_FORTRAN_ENV, its parent type shall be EVENT_TYPE or LOCK_TYPE diff --git a/flang/test/Semantics/resolve88.f90 b/flang/test/Semantics/resolve88.f90 index bbbdac2654b3..43e9ea1a2d22 100644 --- a/flang/test/Semantics/resolve88.f90 +++ b/flang/test/Semantics/resolve88.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C746, C747, and C748 module m use ISO_FORTRAN_ENV diff --git a/flang/test/Semantics/resolve89.f90 b/flang/test/Semantics/resolve89.f90 index eaa902bf54eb..e5a595dbe41f 100644 --- a/flang/test/Semantics/resolve89.f90 +++ b/flang/test/Semantics/resolve89.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C750 Each bound in the explicit-shape-spec shall be a specification ! expression in which there are no references to specification functions or ! the intrinsic functions ALLOCATED, ASSOCIATED, EXTENDS_TYPE_OF, PRESENT, diff --git a/flang/test/Semantics/resolve90.f90 b/flang/test/Semantics/resolve90.f90 index 12fc707dedad..f93850159611 100644 --- a/flang/test/Semantics/resolve90.f90 +++ b/flang/test/Semantics/resolve90.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Testing for pointer constant, along with : ! C751 A component shall not have both the ALLOCATABLE and POINTER attributes. ! C752 If the CONTIGUOUS attribute is specified, the component shall be an diff --git a/flang/test/Semantics/resolve91.f90 b/flang/test/Semantics/resolve91.f90 index c94cda458f3f..292dc9eef33d 100644 --- a/flang/test/Semantics/resolve91.f90 +++ b/flang/test/Semantics/resolve91.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for duplicate definitions and initializations, mostly of procedures module m procedure(real), pointer :: p diff --git a/flang/test/Semantics/resolve92.f90 b/flang/test/Semantics/resolve92.f90 index 7a6bd874eb4b..f7469d91ac55 100644 --- a/flang/test/Semantics/resolve92.f90 +++ b/flang/test/Semantics/resolve92.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 implicit none diff --git a/flang/test/Semantics/resolve93.f90 b/flang/test/Semantics/resolve93.f90 index 2c3764d948ee..78521be4fd46 100644 --- a/flang/test/Semantics/resolve93.f90 +++ b/flang/test/Semantics/resolve93.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 subroutine s1() character(10) str character(10) str1 diff --git a/flang/test/Semantics/resolve94.f90 b/flang/test/Semantics/resolve94.f90 index bf91d6151460..ac055d8efeb5 100644 --- a/flang/test/Semantics/resolve94.f90 +++ b/flang/test/Semantics/resolve94.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! C929 No specifier shall appear more than once in a given ! image-selector-spec-list. ! C930 TEAM and TEAM_NUMBER shall not both appear in the same diff --git a/flang/test/Semantics/resolve95.f90 b/flang/test/Semantics/resolve95.f90 index 78ff09d88d32..e913b5996876 100644 --- a/flang/test/Semantics/resolve95.f90 +++ b/flang/test/Semantics/resolve95.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test SELECT TYPE and ASSOCIATE errors: C1103 subroutine s1() diff --git a/flang/test/Semantics/resolve96.f90 b/flang/test/Semantics/resolve96.f90 index b026e042397e..21d5983b73ca 100644 --- a/flang/test/Semantics/resolve96.f90 +++ b/flang/test/Semantics/resolve96.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check distinguishability for specific procedures of defined operators and ! assignment. These are different from names because there a normal generic diff --git a/flang/test/Semantics/resolve97.f90 b/flang/test/Semantics/resolve97.f90 index 67adff2af292..ecdfe593cc74 100644 --- a/flang/test/Semantics/resolve97.f90 +++ b/flang/test/Semantics/resolve97.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Check errors from illegal (10.1.12 para 2) forward references ! in specification expressions to entities declared later in the diff --git a/flang/test/Semantics/resolve98.f90 b/flang/test/Semantics/resolve98.f90 index dede0420757d..d000ff9cadaa 100644 --- a/flang/test/Semantics/resolve98.f90 +++ b/flang/test/Semantics/resolve98.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Errors when comparing LOGICAL operands diff --git a/flang/test/Semantics/resolve99.f90 b/flang/test/Semantics/resolve99.f90 index a1c8c10af4ee..cbd708f31c0f 100644 --- a/flang/test/Semantics/resolve99.f90 +++ b/flang/test/Semantics/resolve99.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for the index-name of a FORALL statement diff --git a/flang/test/Semantics/save01.f90 b/flang/test/Semantics/save01.f90 index 3c2ed581af97..444d927f4265 100644 --- a/flang/test/Semantics/save01.f90 +++ b/flang/test/Semantics/save01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 MODULE test SAVE CONTAINS diff --git a/flang/test/Semantics/select-rank.f90 b/flang/test/Semantics/select-rank.f90 index 621125671fda..1746c2f906e0 100644 --- a/flang/test/Semantics/select-rank.f90 +++ b/flang/test/Semantics/select-rank.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !Tests for SELECT RANK Construct(R1148) program select_rank diff --git a/flang/test/Semantics/select-rank02.f90 b/flang/test/Semantics/select-rank02.f90 index 51c4f66b2ed3..97265783acd7 100644 --- a/flang/test/Semantics/select-rank02.f90 +++ b/flang/test/Semantics/select-rank02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 !Shape analysis related tests for SELECT RANK Construct(R1148) program select_rank diff --git a/flang/test/Semantics/selecttype01.f90 b/flang/test/Semantics/selecttype01.f90 index c726c232e18d..4bb400f15a0a 100644 --- a/flang/test/Semantics/selecttype01.f90 +++ b/flang/test/Semantics/selecttype01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test for checking select type constraints, module m1 use ISO_C_BINDING diff --git a/flang/test/Semantics/selecttype02.f90 b/flang/test/Semantics/selecttype02.f90 index 3f4226ec7c03..84cbedb2c772 100644 --- a/flang/test/Semantics/selecttype02.f90 +++ b/flang/test/Semantics/selecttype02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 module m1 use ISO_C_BINDING type shape diff --git a/flang/test/Semantics/selecttype03.f90 b/flang/test/Semantics/selecttype03.f90 index e989eb15fe33..e6c21397318e 100644 --- a/flang/test/Semantics/selecttype03.f90 +++ b/flang/test/Semantics/selecttype03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test various conditions in C1158. implicit none diff --git a/flang/test/Semantics/separate-mp01.f90 b/flang/test/Semantics/separate-mp01.f90 index 0dc4991a93c6..0126ffac7e8c 100644 --- a/flang/test/Semantics/separate-mp01.f90 +++ b/flang/test/Semantics/separate-mp01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! case 1: ma_create_new_fun' was not declared a separate module procedure module m1 diff --git a/flang/test/Semantics/separate-mp02.f90 b/flang/test/Semantics/separate-mp02.f90 index 3dd717dbc90a..9fcec396d53e 100644 --- a/flang/test/Semantics/separate-mp02.f90 +++ b/flang/test/Semantics/separate-mp02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! When a module subprogram has the MODULE prefix the following must match ! with the corresponding separate module procedure interface body: diff --git a/flang/test/Semantics/shape.f90 b/flang/test/Semantics/shape.f90 index efd1788427ed..ec9913681780 100644 --- a/flang/test/Semantics/shape.f90 +++ b/flang/test/Semantics/shape.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Test comparisons that use the intrinsic SHAPE() as an operand program testShape contains diff --git a/flang/test/Semantics/spec-expr.f90 b/flang/test/Semantics/spec-expr.f90 index 58ffe1254387..e9f344248472 100644 --- a/flang/test/Semantics/spec-expr.f90 +++ b/flang/test/Semantics/spec-expr.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Tests for the 14 items that specify a "specification expression" in section ! 10.1.11 diff --git a/flang/test/Semantics/stop01.f90 b/flang/test/Semantics/stop01.f90 index 0563eea02a68..ea041723fb0c 100644 --- a/flang/test/Semantics/stop01.f90 +++ b/flang/test/Semantics/stop01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 program main implicit none integer :: i = -1 diff --git a/flang/test/Semantics/structconst01.f90 b/flang/test/Semantics/structconst01.f90 index dd2ae3441d86..96e2dbc41aa3 100644 --- a/flang/test/Semantics/structconst01.f90 +++ b/flang/test/Semantics/structconst01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Error tests for structure constructors. ! Errors caught by name resolution are tested elsewhere; these are the ! errors meant to be caught by expression semantic analysis, as well as diff --git a/flang/test/Semantics/structconst02.f90 b/flang/test/Semantics/structconst02.f90 index 71a743ab7150..b8df1a46e964 100644 --- a/flang/test/Semantics/structconst02.f90 +++ b/flang/test/Semantics/structconst02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Error tests for structure constructors: per-component type ! (in)compatibility. diff --git a/flang/test/Semantics/structconst03.f90 b/flang/test/Semantics/structconst03.f90 index f98f05c1a21a..221b2cebdd40 100644 --- a/flang/test/Semantics/structconst03.f90 +++ b/flang/test/Semantics/structconst03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Error tests for structure constructors: C1594 violations ! from assigning globally-visible data to POINTER components. ! test/Semantics/structconst04.f90 is this same test without type diff --git a/flang/test/Semantics/structconst04.f90 b/flang/test/Semantics/structconst04.f90 index 57001f23df9e..535d20755e9a 100644 --- a/flang/test/Semantics/structconst04.f90 +++ b/flang/test/Semantics/structconst04.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_errors.sh %s %t %f18 +! RUN: %S/test_errors.sh %s %t %flang_fc1 ! Error tests for structure constructors: C1594 violations ! from assigning globally-visible data to POINTER components. ! This test is structconst03.f90 with the type parameters removed. diff --git a/flang/test/Semantics/symbol01.f90 b/flang/test/Semantics/symbol01.f90 index 4dc2cb790413..08a4709cf911 100644 --- a/flang/test/Semantics/symbol01.f90 +++ b/flang/test/Semantics/symbol01.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Test that intent-stmt and subprogram prefix and suffix are resolved. !DEF: /m Module diff --git a/flang/test/Semantics/symbol02.f90 b/flang/test/Semantics/symbol02.f90 index add42939e464..fbe39f42ac9c 100644 --- a/flang/test/Semantics/symbol02.f90 +++ b/flang/test/Semantics/symbol02.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Test host association in module subroutine and internal subroutine. !DEF: /m Module diff --git a/flang/test/Semantics/symbol03.f90 b/flang/test/Semantics/symbol03.f90 index a398d8db40b0..84468dfbb4bf 100644 --- a/flang/test/Semantics/symbol03.f90 +++ b/flang/test/Semantics/symbol03.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Test host association in internal subroutine of main program. !DEF: /main MainProgram diff --git a/flang/test/Semantics/symbol05.f90 b/flang/test/Semantics/symbol05.f90 index 9fb6b43583cc..6142168d3bea 100644 --- a/flang/test/Semantics/symbol05.f90 +++ b/flang/test/Semantics/symbol05.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Explicit and implicit entities in blocks !DEF: /s1 (Subroutine) Subprogram diff --git a/flang/test/Semantics/symbol06.f90 b/flang/test/Semantics/symbol06.f90 index 553cb14af422..026d352dad95 100644 --- a/flang/test/Semantics/symbol06.f90 +++ b/flang/test/Semantics/symbol06.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /main MainProgram program main !DEF: /main/t1 DerivedType diff --git a/flang/test/Semantics/symbol07.f90 b/flang/test/Semantics/symbol07.f90 index f0bc0e47eee2..cbc22e5dd2a5 100644 --- a/flang/test/Semantics/symbol07.f90 +++ b/flang/test/Semantics/symbol07.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /main MainProgram program main implicit complex(z) diff --git a/flang/test/Semantics/symbol08.f90 b/flang/test/Semantics/symbol08.f90 index 711a9f694c8e..0c6c335a605b 100644 --- a/flang/test/Semantics/symbol08.f90 +++ b/flang/test/Semantics/symbol08.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /main MainProgram program main !DEF: /main/x POINTER ObjectEntity REAL(4) diff --git a/flang/test/Semantics/symbol09.f90 b/flang/test/Semantics/symbol09.f90 index d3604a1913c3..260f54e41d07 100644 --- a/flang/test/Semantics/symbol09.f90 +++ b/flang/test/Semantics/symbol09.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /s1 (Subroutine) Subprogram subroutine s1 !DEF: /s1/a ObjectEntity REAL(4) diff --git a/flang/test/Semantics/symbol10.f90 b/flang/test/Semantics/symbol10.f90 index 60da43a97f74..64849fea4477 100644 --- a/flang/test/Semantics/symbol10.f90 +++ b/flang/test/Semantics/symbol10.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /m1 Module module m1 contains diff --git a/flang/test/Semantics/symbol11.f90 b/flang/test/Semantics/symbol11.f90 index 3d2be676967f..0dfafcd2555c 100644 --- a/flang/test/Semantics/symbol11.f90 +++ b/flang/test/Semantics/symbol11.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 !DEF: /s1 (Subroutine) Subprogram subroutine s1 implicit none diff --git a/flang/test/Semantics/symbol12.f90 b/flang/test/Semantics/symbol12.f90 index 339f1707a584..cffcbdfa7e0b 100644 --- a/flang/test/Semantics/symbol12.f90 +++ b/flang/test/Semantics/symbol12.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Verify that SAVE attribute is propagated by EQUIVALENCE !DEF: /s1 (Subroutine) Subprogram diff --git a/flang/test/Semantics/symbol13.f90 b/flang/test/Semantics/symbol13.f90 index 6052bfcc4d1f..5a4ad6236fcb 100644 --- a/flang/test/Semantics/symbol13.f90 +++ b/flang/test/Semantics/symbol13.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Old-style "*length" specifiers (R723) !DEF: /f1 (Function) Subprogram CHARACTER(1_8,1) diff --git a/flang/test/Semantics/symbol14.f90 b/flang/test/Semantics/symbol14.f90 index 7705bdbef1ca..3412500b1d18 100644 --- a/flang/test/Semantics/symbol14.f90 +++ b/flang/test/Semantics/symbol14.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! "Bare" uses of type parameters and components !DEF: /MainProgram1/t1 DerivedType diff --git a/flang/test/Semantics/symbol15.f90 b/flang/test/Semantics/symbol15.f90 index 7f307e72c2e5..b51445507876 100644 --- a/flang/test/Semantics/symbol15.f90 +++ b/flang/test/Semantics/symbol15.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Forward references in pointer initializers and TBP bindings. !DEF: /m Module diff --git a/flang/test/Semantics/symbol16.f90 b/flang/test/Semantics/symbol16.f90 index 4fa6f2b9c0ea..def7dc7bcf4f 100644 --- a/flang/test/Semantics/symbol16.f90 +++ b/flang/test/Semantics/symbol16.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Statement functions !DEF: /p1 MainProgram diff --git a/flang/test/Semantics/symbol17.f90 b/flang/test/Semantics/symbol17.f90 index d5b086b965e0..5906a4712437 100644 --- a/flang/test/Semantics/symbol17.f90 +++ b/flang/test/Semantics/symbol17.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Forward references to derived types (non-error cases) !DEF: /main MainProgram diff --git a/flang/test/Semantics/symbol18.f90 b/flang/test/Semantics/symbol18.f90 index c3197d7ec924..fee435254307 100644 --- a/flang/test/Semantics/symbol18.f90 +++ b/flang/test/Semantics/symbol18.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Intrinsic function in type declaration statement: type is ignored diff --git a/flang/test/Semantics/symbol19.f90 b/flang/test/Semantics/symbol19.f90 index 94a6b8667673..677d0af2055c 100644 --- a/flang/test/Semantics/symbol19.f90 +++ b/flang/test/Semantics/symbol19.f90 @@ -1,4 +1,4 @@ -! RUN: %S/test_symbols.sh %s %t %f18 +! RUN: %S/test_symbols.sh %s %t %flang_fc1 ! Test that a procedure is only implicitly resolved as an intrinsic function diff --git a/flang/test/Semantics/test_errors.sh b/flang/test/Semantics/test_errors.sh index 10feccb2f9f1..20486b3abeba 100755 --- a/flang/test/Semantics/test_errors.sh +++ b/flang/test/Semantics/test_errors.sh @@ -1,8 +1,8 @@ #!/usr/bin/env bash # Compile a source file and check errors against those listed in the file. -# Change the compiler by setting the F18 environment variable. +# Change the compiler by setting the FLANG_FC1 environment variable. -F18_OPTIONS="-fsyntax-only" +FLANG_FC1_OPTIONS="-fsyntax-only" srcdir=$(dirname $0) source $srcdir/common.sh [[ ! -f $src ]] && die "File not found: $src" @@ -12,7 +12,7 @@ actual=$temp/actual expect=$temp/expect diffs=$temp/diffs -cmd="$F18 $F18_OPTIONS $src" +cmd="$FLANG_FC1 $FLANG_FC1_OPTIONS $src" ( cd $temp; $cmd ) > $log 2>&1 if [[ $? -ge 128 ]]; then cat $log diff --git a/flang/test/Semantics/test_modfile.sh b/flang/test/Semantics/test_modfile.sh index a2aef65a101b..f52452030d66 100755 --- a/flang/test/Semantics/test_modfile.sh +++ b/flang/test/Semantics/test_modfile.sh @@ -2,7 +2,7 @@ # Compile a source file and compare generated .mod files against expected. set -e -F18_OPTIONS="-fdebug-resolve-names -fsyntax-only" +FLANG_FC1_OPTIONS="-fsyntax-only" srcdir=$(dirname $0) source $srcdir/common.sh @@ -21,7 +21,7 @@ for src in "$@"; do ( cd $temp ls -1 *.mod > prev_files - $F18 $F18_OPTIONS $src + $FLANG_FC1 $FLANG_FC1_OPTIONS $src ls -1 *.mod | comm -13 prev_files - ) > $actual_files expected_files=$(sed -n 's/^!Expect: \(.*\)/\1/p' $src | sort) diff --git a/flang/test/Semantics/test_symbols.sh b/flang/test/Semantics/test_symbols.sh index 61ff7fdb1e7b..56337c2746f0 100755 --- a/flang/test/Semantics/test_symbols.sh +++ b/flang/test/Semantics/test_symbols.sh @@ -1,10 +1,10 @@ #!/usr/bin/env bash -# Compile a source file with '-funparse-with-symbols' and verify +# Compile a source file with '-fdebug-unparse-with-symbols' and verify # we get the right symbols in the output, i.e. the output should be # the same as the input, except for the copyright comment. -# Change the compiler by setting the F18 environment variable. +# Change the frontend driver by setting the FLANG_FC1 environment variable. -F18_OPTIONS="-funparse-with-symbols" +FLANG_FC1_OPTIONS="-fdebug-unparse-with-symbols" srcdir=$(dirname $0) source $srcdir/common.sh [[ ! -f $src ]] && echo "File not found: $src" && exit 1 @@ -22,7 +22,7 @@ sed -e 's/!\([DR]EF:\)/KEEP \1/' -e 's/!\($omp\)/KEEP \1/' \ $src > $src1 egrep -v '![DR]EF:' $src1 > $src2 # strip out DEF and REF comments # compile, inserting comments for symbols: -( cd $temp; $F18 $F18_OPTIONS $(basename $src2) ) > $src3 +( cd $temp; $FLANG_FC1 $FLANG_FC1_OPTIONS $(basename $src2) ) > $src3 if diff -w -U999999 $src1 $src3 > $diffs; then echo PASS |