forked from OSchip/llvm-project
15 lines
314 B
Fortran
15 lines
314 B
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
! C1138 --
|
|
! A branch (11.2) within a DO CONCURRENT construct shall not have a branch
|
|
! target that is outside the construct.
|
|
|
|
subroutine s1()
|
|
do concurrent (i=1:10)
|
|
!ERROR: Control flow escapes from DO CONCURRENT
|
|
goto 99
|
|
end do
|
|
|
|
99 print *, "Hello"
|
|
|
|
end subroutine s1
|