gcc/testsuite/gfortran.dg/goacc/private-3.f95

   1 ! { dg-do compile }
   2
   3 ! test for private variables in a reduction clause
   4
   5 program test
   6   implicit none
   7   integer, parameter :: n = 100
   8   integer :: i, k
   9
  10 !  !$acc parallel private (k) reduction (+:k)
  11 !  do i = 1, n
  12 !     k = k + 1
  13 !  end do
  14 !  !$acc end parallel
  15
  16   !$acc parallel private (k)
  17   k = 0
  18   !$acc loop reduction (+:k)
  19   do i = 1, n
  20      k = k + 1
  21   end do
  22   !$acc end parallel
  23 end program test