| ! 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 |