Workaround cray openacc bug regarding deviceptr

ecmwf · Oct 11, 2024 · c82b4d3 · c82b4d3
1 parent aa2a3dd
commit c82b4d3
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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
 
 ! -----------------------------------------------------------------------------