diff --git a/src/tests/field/fctest_field_gpu.F90 b/src/tests/field/fctest_field_gpu.F90 index c98896fe4..2233555c6 100644 --- a/src/tests/field/fctest_field_gpu.F90 +++ b/src/tests/field/fctest_field_gpu.F90 @@ -35,10 +35,11 @@ end subroutine kernel_host_ptr subroutine kernel_device_ptr(dview) implicit none real(4) :: dview(:,:) - - !$acc kernels deviceptr(dview) + !$acc data deviceptr(dview) + !$acc kernels dview(2,1) = 5. !$acc end kernels + !$acc end data end subroutine kernel_device_ptr ! -----------------------------------------------------------------------------