b78fd58d22
Only some fortran source files in flang/test/Semantics have been modified. The remaining files will be cleaned up in subsequent commits.
15 lines
324 B
Fortran
15 lines
324 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! 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
|