flang/test/Semantics/dosemantics08.f90

   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
   6 subroutine s1()
   7   do concurrent (i=1:10)
   8 !ERROR: Control flow escapes from DO CONCURRENT
   9     goto 99
  10   end do
  11
  12 99 print *, "Hello"
  13
  14 end subroutine s1