blob: c9a76385d9f7c27ad0320536b9e3d0319f00a423 [file] [log] [blame]
! { 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