blob: d4d48294d4a6e82550becbb16aadd7b1df236e23 [file] [log] [blame]
! RUN: %flang_fc1 -fopenacc -fdebug-unparse %s | FileCheck %s
! Test unparse does not crash with OpenACC directives.
! Test bug 47659
program bug47659
integer :: i, j
label1: do i = 1, 10
!$acc parallel loop
do j = 1, 10
if (j == 2) then
exit label1
end if
end do
end do label1
end program
!CHECK-LABEL: PROGRAM bug47659
!CHECK: !$ACC PARALLEL LOOP