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