libgomp/testsuite/libgomp.oacc-fortran/reduction-5.f90

   1 ! { dg-do run }
   2
   3 ! subroutine reduction
   4
   5 program reduction
   6   integer, parameter    :: n = 40, c = 10
   7   integer               :: i, vsum, sum
   8
   9   call redsub (sum, n, c)
  10
  11   vsum = 0
  12
  13   ! Verify the results
  14   do i = 1, n
  15      vsum = vsum + c
  16   end do
  17
  18   if (sum.ne.vsum) call abort ()
  19 end program reduction
  20
  21 subroutine redsub(sum, n, c)
  22   integer :: sum, n, c
  23
  24   sum = 0
  25
  26   !$acc parallel vector_length(n) copyin (n, c) num_gangs(1)
  27   !$acc loop reduction(+:sum)
  28   do i = 1, n
  29      sum = sum + c
  30   end do
  31   !$acc end parallel
  32 end subroutine redsub