libgomp/testsuite/libgomp.oacc-fortran/kernels-reduction-1.f90

! Test a simple acc loop reduction inside a kernels region. 

! { dg-do run }

program reduction
  integer, parameter     :: n = 20
  integer                :: i, red

  red = 0

  !$acc kernels
  !$acc loop reduction (+:red)
  do i = 1, n
     red = red + 1
  end do
  !$acc end kernels

  if (red .ne. n) stop 1
end program reduction