24 lines
320 B
Fortran
24 lines
320 B
Fortran
|
! { 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
|