flang/test/Parser/acc-unparse.f90

   1 ! RUN: %flang_fc1 -fopenacc -fdebug-unparse %s | FileCheck %s
   2
   3 ! Test unparse does not crash with OpenACC directives.
   4
   5 ! Test bug 47659
   6 program bug47659
   7   integer :: i, j
   8   label1: do i = 1, 10
   9     !$acc parallel loop
  10     do j = 1, 10
  11       if (j == 2) then
  12         exit label1
  13       end if
  14     end do
  15   end do label1
  16 end program
  17
  18 !CHECK-LABEL: PROGRAM bug47659
  19 !CHECK: !$ACC PARALLEL LOOP