blob: 0b939c04fbb8f7932374c413b1c2603c0450d85e [file] [log] [blame]
! { dg-do run }
!
program foo
IMPLICIT NONE
INTEGER :: vol = 0
call bar (vol)
if (vol .ne. 2) stop 1
end program foo
subroutine bar(vol)
IMPLICIT NONE
INTEGER :: vol
INTEGER :: j
!$ACC KERNELS
!$ACC LOOP REDUCTION(+:vol)
DO j=1,2
vol = vol + 1
ENDDO
!$ACC END KERNELS
end subroutine bar