b537c81b5f
Port the remaining tests which only require mechanical changes and delete
test_any.sh.
* Delete old RUN lines
* Replace:
EXEC: ${F18} ... | ${FileCheck} ...
with
RUN: %f18 .. | FileCheck ...
* Prepend RUN line with not when it is expected to fail
Also reinstate a de-activated EXEC line and port it in the same way.
Differential Revision: https://reviews.llvm.org/D82168
21 lines
418 B
Fortran
21 lines
418 B
Fortran
! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
|
|
! CHECK: Control flow escapes from DO CONCURRENT
|
|
! CHECK: branch into loop body from outside
|
|
! CHECK: the loop branched into
|
|
|
|
subroutine s(a)
|
|
integer i
|
|
real a(10)
|
|
do 10 concurrent (i = 1:10)
|
|
if (a(i) < 0.0) then
|
|
goto 20
|
|
end if
|
|
30 continue
|
|
a(i) = 1.0
|
|
10 end do
|
|
goto 40
|
|
20 a(i) = -a(i)
|
|
goto 30
|
|
40 continue
|
|
end subroutine s
|