forked from OSchip/llvm-project
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
|