You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
314 B
15 lines
314 B
! 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
|