| ! { 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 |