Skip to content

Commit

Permalink
Port all remaining regression tests to lit
Browse files Browse the repository at this point in the history
We have re-classified a subset of the regression tests as unit tests and
now we are porting the remaining ones.

Test discovery and running is now performed by lit rather than ctest.
The tests continue to use their original scripts with minor
modifications. Most of the changes were mechanical and so scripted.
A few changes were made by hand. Details

Manual:
  * modfile09-*.f90 tests depend on being run together as some tests have
    dependencies on modules created by other tests. This will need
     separating out when porting away from test_modfile.sh, but for now,
     added modfile09-*.f90 to the Inputs directory and added a single
     tests modfile09.f90 to hold the run line.
  * getdefinition03-a.f90 includes a non-test file getdefinition03-b.f90.
    Manually edited the former to find the latter in Inputs so as to add
    only one test.
  * Same pattern for getsymbols03-{a,b}.f90

Auto:
  * Remaining tests have a lit RUN line added to them based on the type
    of test they are.
  * Failing tests also have an XFAIL line added to them.
  * Generic tests have their pre-existing RUN lines replaced with the
    word "EXEC" to avoid conflict with the added lit RUN line.
  • Loading branch information
LukeIreland1 committed Mar 10, 2020
1 parent fc339c3 commit c90e7de
Show file tree
Hide file tree
Showing 340 changed files with 388 additions and 74 deletions.
File renamed without changes.
1 change: 1 addition & 0 deletions test/Evaluate/folding01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t

! Test intrinsic operation folding

Expand Down
1 change: 1 addition & 0 deletions test/Evaluate/folding02.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Check intrinsic function folding with host runtime library

module m
Expand Down
1 change: 1 addition & 0 deletions test/Evaluate/folding03.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Test operation folding edge case (both expected value and messages)
! These tests make assumptions regarding real(4) and integer(4) extrema.

Expand Down
1 change: 1 addition & 0 deletions test/Evaluate/folding04.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Test intrinsic function folding edge case (both expected value and messages)
! These tests make assumptions regarding real(4) extrema.

Expand Down
Binary file modified test/Evaluate/folding05.f90
Binary file not shown.
1 change: 1 addition & 0 deletions test/Evaluate/folding06.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Test transformational intrinsic function folding

module m
Expand Down
1 change: 1 addition & 0 deletions test/Evaluate/folding07.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Test numeric model inquiry intrinsics

module m
Expand Down
1 change: 1 addition & 0 deletions test/Evaluate/folding08.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Test folding of LBOUND and UBOUND

module m
Expand Down
1 change: 1 addition & 0 deletions test/Evaluate/folding09.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_folding.sh %s %flang %t
! Test folding of IS_CONTIGUOUS on simply contiguous items (9.5.4)
! When IS_CONTIGUOUS() is constant, it's .TRUE.

Expand Down
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
! RUN: ${F18} -fparse-only %s
! EXEC: ${F18} -fparse-only %s

module mm2a
implicit none
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
! RUN: ${F18} -fparse-only %s
! EXEC: ${F18} -fparse-only %s

module mm2b
use mm2a
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,6 @@ PROGRAM helloworld
i = callget5()
ENDPROGRAM

! RUN: ${F18} -fget-symbols-sources -fparse-only %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -fget-symbols-sources -fparse-only %s 2>&1 | ${FileCheck} %s
! CHECK:callget5: mm2b
! CHECK:get5: mm2a
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
1 change: 1 addition & 0 deletions test/Semantics/allocate01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

! Creating a symbol that allocate should accept
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate02.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t

! Check for semantic errors in ALLOCATE statements

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate03.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

subroutine C933_a(b1, ca3, ca4, cp3, cp3mold, cp4, cp7, cp8, bsrc)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate04.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements


Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate05.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements


Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate06.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements


Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate07.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

subroutine C936(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate08.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

subroutine C945_a(srca, srcb, srcc, src_complex, src_logical, &
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate09.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

subroutine C946(param_ca_4_assumed, param_ta_4_assumed, param_ca_4_deferred)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate10.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

!TODO: mixing expr and source-expr?
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate11.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

! TODO: Function Pointer in allocate and derived types!
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate12.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

subroutine C941_C942b_C950(xsrc, x1, a2, b2, cx1, ca2, cb1, cb2, c1)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/allocate13.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for semantic errors in ALLOCATE statements

module not_iso_fortran_env
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/altreturn01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check calls with alt returns

CALL TEST (N, *100, *200 )
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/altreturn02.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check subroutine with alt return

SUBROUTINE TEST (N, *, *)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/altreturn03.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Check for various alt return error conditions

SUBROUTINE TEST (N, *, *)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/altreturn04.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Functions cannot use alt return

REAL FUNCTION altreturn01(X)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/altreturn05.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test extension: RETURN from main program

return !ok
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/assign01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! 10.2.3.1(2) All masks and LHS of assignments in a WHERE must conform

subroutine s1
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/assign02.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Pointer assignment constraints 10.2.2.2

module m1
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/assign03.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Pointer assignment constraints 10.2.2.2 (see also assign02.f90)

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/assign04.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! 9.4.5
subroutine s1
type :: t(k, l)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/bad-forward-type.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Forward references to derived types (error cases)

!ERROR: The derived type 'undef' was forward-referenced but not defined
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/bindings01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Confirm enforcement of constraints and restrictions in 7.5.7.3
! and C779-C785.

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/block-data01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test BLOCK DATA subprogram (14.3)
block data foo
!ERROR: IMPORT is not allowed in a BLOCK DATA subprogram
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/blockconstruct01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! C1107 -- COMMON, EQUIVALENCE, INTENT, NAMELIST, OPTIONAL, VALUE or
! STATEMENT FUNCTIONS not allow in specification part

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/blockconstruct02.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! C1108 -- Save statement in a BLOCK construct shall not conatin a
! saved-entity-list that does not specify a common-block-name

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/blockconstruct03.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Tests implemented for this standard:
! Block Construct
! C1109
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/c_f_pointer.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Enforce 18.2.3.3

program test
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call01.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Confirm enforcement of constraints and restrictions in 15.6.2.1

non_recursive function f01(n) result(res)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call02.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! 15.5.1 procedure reference constraints and restrictions

subroutine s01(elem, subr)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call03.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.5.2.4 constraints and restrictions for non-POINTER non-ALLOCATABLE
! dummy arguments.

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call04.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 8.5.10 & 8.5.18 constraints on dummy argument declarations

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call05.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.5.2.5 constraints and restrictions for POINTER & ALLOCATABLE
! arguments when both sides of the call have the same attributes.

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call06.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.5.2.6 constraints and restrictions for ALLOCATABLE
! dummy arguments.

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call07.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.5.2.7 constraints and restrictions for POINTER dummy arguments.

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call08.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.5.2.8 coarray dummy arguments

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call09.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.5.2.9(2,3,5) dummy procedure requirements

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call10.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.7 (C1583-C1590, C1592-C1599) constraints and restrictions
! for pure procedures.
! (C1591 is tested in call11.f90; C1594 in call12.f90.)
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call11.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.7 C1591 & others: contexts requiring pure subprograms

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call12.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.7 C1594 - prohibited assignments in pure subprograms

module used
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call13.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 15.4.2.2 constraints and restrictions for calls to implicit
! interfaces

Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call14.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! Test 8.5.18 constraints on the VALUE attribute

module m
Expand Down
1 change: 1 addition & 0 deletions test/Semantics/call15.f90
Original file line number Diff line number Diff line change
@@ -1,3 +1,4 @@
! RUN: %S/test_errors.sh %s %flang %t
! 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)
Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo01.f90
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
! RUN: %S/test_any.sh %s %flang %t
! negative test -- invalid labels, out of range

! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK: end do

SUBROUTINE sub00(a,b,n,m)
Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo02.f90
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
! RUN: %S/test_any.sh %s %flang %t
! negative test -- invalid labels, out of range

! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK: end do

SUBROUTINE sub00(a,b,n,m)
Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo03.f90
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
! RUN: %S/test_any.sh %s %flang %t
! negative test -- invalid labels, out of range

! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK: 10 continue
! CHECK: end do

Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo04.f90
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! RUN: %S/test_any.sh %s %flang %t
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK-NOT: do [1-9]

! Figure out how to also execute this test.
Expand Down
5 changes: 3 additions & 2 deletions test/Semantics/canondo05.f90
Original file line number Diff line number Diff line change
@@ -1,5 +1,6 @@
! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! XXXRUN: ${F18} -fopenmp -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! RUN: %S/test_any.sh %s %flang %t
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! XXXEXEC: ${F18} -fopenmp -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK-NOT: do *[1-9]

program P
Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo06.f90
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
! RUN: ${F18} -fopenmp -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! RUN: %S/test_any.sh %s %flang %t
! EXEC: ${F18} -fopenmp -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK-NOT: do *[1-9]
! CHECK: omp simd

Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo07.f90
Original file line number Diff line number Diff line change
@@ -1,7 +1,8 @@
! RUN: %S/test_any.sh %s %flang %t
! Error test -- DO loop uses obsolete loop termination statement
! See R1131 and C1131

! RUN: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s
! CHECK: A DO loop should terminate with an END DO or CONTINUE

program endDo
Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo08.f90
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
! RUN: %S/test_any.sh %s %flang %t
! Error test -- DO loop uses obsolete loop termination statement
! See R1131 and C1133

! By default, this is not an error and label do are rewritten to non-label do.
! A warning is generated with -Mstandard


! RUN: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s

! CHECK: end do

Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo09.f90
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
! RUN: %S/test_any.sh %s %flang %t
! Error test -- DO loop uses obsolete loop termination statement
! See R1131 and C1133

! By default, this is not an error and label do are rewritten to non-label do.
! A warning is generated with -Mstandard


! RUN: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s

! CHECK: end do

Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo10.f90
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
! RUN: %S/test_any.sh %s %flang %t
! Error test -- DO loop uses obsolete loop termination statement
! See R1131 and C1133

! By default, this is not an error and label do are rewritten to non-label do.
! A warning is generated with -Mstandard


! RUN: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s

! CHECK: end do

Expand Down
3 changes: 2 additions & 1 deletion test/Semantics/canondo11.f90
Original file line number Diff line number Diff line change
@@ -1,11 +1,12 @@
! RUN: %S/test_any.sh %s %flang %t
! Error test -- DO loop uses obsolete loop termination statement
! See R1131 and C1133

! By default, this is not an error and label do are rewritten to non-label do.
! A warning is generated with -Mstandard


! RUN: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s
! EXEC: ${F18} -funparse-with-symbols -Mstandard %s 2>&1 | ${FileCheck} %s

! CHECK: end do

Expand Down
Loading

0 comments on commit c90e7de

Please sign in to comment.