gcc/testsuite/gfortran.dg/goacc/branch.f95

   1 ! { dg-do compile }
   2
   3 program test
   4   implicit none
   5
   6   integer :: i
   7
   8   if (.true.) then
   9     !$acc parallel
  10   end if ! { dg-error "Unexpected" }
  11   !$acc end parallel
  12   end if
  13
  14   if (.true.) then
  15     !$acc kernels
  16   end if ! { dg-error "Unexpected" }
  17   !$acc end kernels
  18   end if
  19
  20   !$acc parallel
  21   if (.true.) then
  22     !$acc end parallel ! { dg-error "Unexpected" }
  23   end if
  24   !$acc end parallel
  25
  26   !$acc kernels
  27   if (.true.) then
  28     !$acc end kernels ! { dg-error "Unexpected" }
  29   end if
  30   !$acc end kernels
  31
  32   !$acc parallel
  33   if (.true.) then
  34   end if
  35   !$acc end parallel
  36
  37   !$acc kernels
  38   if (.true.) then
  39   end if
  40   !$acc end kernels
  41
  42   if (.true.) then
  43     !$acc parallel
  44     !$acc end parallel
  45   end if
  46
  47   if (.true.) then
  48     !$acc kernels
  49     !$acc end kernels
  50   end if
  51
  52
  53 end program test