1*96d229c9SAndrzej Warzynski! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 264ab3302SCarolineConcatto! CHECK: Control flow escapes from DO CONCURRENT 364ab3302SCarolineConcatto! CHECK: branch into loop body from outside 464ab3302SCarolineConcatto! CHECK: the loop branched into 564ab3302SCarolineConcatto 664ab3302SCarolineConcattosubroutine s(a) 764ab3302SCarolineConcatto integer i 864ab3302SCarolineConcatto real a(10) 964ab3302SCarolineConcatto do 10 concurrent (i = 1:10) 1064ab3302SCarolineConcatto if (a(i) < 0.0) then 1164ab3302SCarolineConcatto goto 20 1264ab3302SCarolineConcatto end if 1364ab3302SCarolineConcatto30 continue 1464ab3302SCarolineConcatto a(i) = 1.0 1564ab3302SCarolineConcatto10 end do 1664ab3302SCarolineConcatto goto 40 1764ab3302SCarolineConcatto20 a(i) = -a(i) 1864ab3302SCarolineConcatto goto 30 1964ab3302SCarolineConcatto40 continue 2064ab3302SCarolineConcattoend subroutine s 21