forked from OSchip/llvm-project
20 lines
378 B
Fortran
20 lines
378 B
Fortran
! RUN: %f18 -fopenacc -funparse %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
|