1! { dg-do run }
2!
3program foo
4
5  IMPLICIT NONE
6  INTEGER :: vol = 0
7
8  call bar (vol)
9
10  if (vol .ne. 4) stop 1
11end program foo
12
13subroutine bar(vol)
14  IMPLICIT NONE
15
16  INTEGER :: vol
17  INTEGER :: j,k
18
19  !$ACC KERNELS
20  !$ACC LOOP REDUCTION(+:vol)
21  DO k=1,2
22     !$ACC LOOP REDUCTION(+:vol)
23     DO j=1,2
24	vol = vol + 1
25     ENDDO
26  ENDDO
27  !$ACC END KERNELS
28end subroutine bar
29