43 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK-NOT: exit from DO CONCURRENT construct3 4subroutine do_concurrent_test1(n)5 implicit none6 integer :: j,k,l,n7 mytest: if (n>0) then8 mydoc: do concurrent(j=1:n)9 mydo: do k=1,n10 if (k==5) exit11 if (k==6) exit mydo12 end do mydo13 do concurrent(l=1:n)14 if (l==5) print *, "test"15 end do16 end do mydoc17 do k=1,n18 if (k==5) exit mytest19 end do20 end if mytest21end subroutine do_concurrent_test122 23subroutine do_concurrent_test2(n)24 implicit none25 integer :: i1,i2,i3,i4,i5,i6,n26 mytest2: if (n>0) then27 nc1: do concurrent(i1=1:n)28 nc2: do i2=1,n29 nc3: do concurrent(i3=1:n)30 nc4: do i4=1,n31 if (i3==4) exit nc432 nc5: do concurrent(i5=1:n)33 nc6: do i6=1,n34 if (i6==10) print *, "hello"35 end do nc636 end do nc537 end do nc438 end do nc339 end do nc240 end do nc141 end if mytest242end subroutine do_concurrent_test243