flang/test/Parser/acc-unparse.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! 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