28 lines
475 B
Fortran
28 lines
475 B
Fortran
|
! { dg-do run }
|
||
|
|
|
||
|
|
program main
|
||
|
|
integer, parameter :: n = 40
|
||
|
|
integer, allocatable :: ar(:,:,:)
|
||
|
|
integer :: i
|
||
|
|
|
||
|
|
allocate (ar(1:n,0:n-1,0:n-1))
|
||
|
|
!$acc enter data copyin (ar)
|
||
|
|
|
||
|
|
!$acc update host (ar)
|
||
|
|
|
||
|
|
!$acc update device (ar)
|
||
|
|
|
||
|
|
call update_ar (ar, n)
|
||
|
|
|
||
|
|
!$acc exit data copyout (ar)
|
||
|
|
end program main
|
||
|
|
|
||
|
|
subroutine update_ar (ar, n)
|
||
|
|
integer :: n
|
||
|
|
integer, dimension (1:n,0:n-1,0:n-1) :: ar
|
||
|
|
|
||
|
|
!$acc update host (ar)
|
||
|
|
|
||
|
|
!$acc update device (ar)
|
||
|
|
end subroutine update_ar
|