Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/combined-reduction.f90
2017-04-10 13:32:00 +02:00

20 lines
292 B
Fortran

! 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) call abort
end program test