PR c++/86342 - -Wdeprecated-copy and system headers.

[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / combined-reduction.f90

! Test a combined acc parallel loop reduction.

! { dg-do run }

program test
  implicit none
  integer i, n, var

  n = 100
  var = 0

  !$acc parallel loop reduction(+:var)
  do i = 1, 100
     var = var + 1
  end do
  !$acc end parallel loop

  if (var .ne. n) STOP 1
end program test