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