1! RUN: %S/test_errors.sh %s %t %f18
2! C1138 --
3! A branch (11.2) within a DO CONCURRENT construct shall not have a branch
4! target that is outside the construct.
5
6subroutine s1()
7  do concurrent (i=1:10)
8!ERROR: Control flow escapes from DO CONCURRENT
9    goto 99
10  end do
11
1299 print *, "Hello"
13
14end subroutine s1
15