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