1! RUN: %python %S/test_errors.py %s %flang_fc1 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