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