21 lines · plain
1! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK: Control flow escapes from DO CONCURRENT3! CHECK: branch into loop body from outside4! CHECK: the loop branched into5 6subroutine s(a)7 integer i8 real a(10)9 do 10 concurrent (i = 1:10)10 if (a(i) < 0.0) then11 goto 2012 end if1330 continue14 a(i) = 1.01510 end do16 goto 401720 a(i) = -a(i)18 goto 301940 continue20end subroutine s21