1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1 264ab3302SCarolineConcatto! C1138 -- 364ab3302SCarolineConcatto! A branch (11.2) within a DO CONCURRENT construct shall not have a branch 464ab3302SCarolineConcatto! target that is outside the construct. 564ab3302SCarolineConcatto 664ab3302SCarolineConcattosubroutine s1() 764ab3302SCarolineConcatto do concurrent (i=1:10) 864ab3302SCarolineConcatto!ERROR: Control flow escapes from DO CONCURRENT 964ab3302SCarolineConcatto goto 99 1064ab3302SCarolineConcatto end do 1164ab3302SCarolineConcatto 1264ab3302SCarolineConcatto99 print *, "Hello" 1364ab3302SCarolineConcatto 1464ab3302SCarolineConcattoend subroutine s1 15