15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C1138 -- 3! A branch (11.2) within a DO CONCURRENT construct shall not have a branch4! target that is outside the construct.5 6subroutine s1()7 do concurrent (i=1:10)8!ERROR: Control flow escapes from DO CONCURRENT9 goto 9910 end do11 1299 print *, "Hello"13 14end subroutine s115