mirror of
https://github.com/autc04/Retro68.git
synced 2025-01-11 02:30:42 +00:00
22 lines
306 B
Fortran
22 lines
306 B
Fortran
program foo
|
|
IMPLICIT NONE
|
|
INTEGER :: vol = 0
|
|
|
|
call bar (vol)
|
|
|
|
if (vol .ne. 2) call abort
|
|
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
|