1! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 2! CHECK: Control flow escapes from DO CONCURRENT 3! CHECK: branch into loop body from outside 4! CHECK: the loop branched into 5 6subroutine s(a) 7 integer i 8 real a(10) 9 do 10 concurrent (i = 1:10) 10 if (a(i) < 0.0) then 11 goto 20 12 end if 1330 continue 14 a(i) = 1.0 1510 end do 16 goto 40 1720 a(i) = -a(i) 18 goto 30 1940 continue 20end subroutine s 21