1! Test a simple acc loop reduction inside a kernels region. 2 3! { dg-do run } 4 5program reduction 6 integer, parameter :: n = 20 7 integer :: i, red 8 9 red = 0 10 11 !$acc kernels 12 !$acc loop reduction (+:red) 13 do i = 1, n 14 red = red + 1 15 end do 16 !$acc end kernels 17 18 if (red .ne. n) stop 1 19end program reduction 20