From c82b4d3395661d635b6229f2abbbc64b698be0ea Mon Sep 17 00:00:00 2001
From: Willem Deconinck <willem.deconinck@ecmwf.int>
Date: Sat, 12 Oct 2024 00:51:56 +0300
Subject: [PATCH] Workaround cray openacc bug regarding deviceptr

---
 src/tests/field/fctest_field_gpu.F90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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