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