Merge pull request #20 from ecmwf-ifs/naan-restore-pointer-attribute

Restore POINTER attribute to COPY_DIM_CONTIGUOUS dummy args
ecmwf-ifs · Jan 19, 2024 · 37beb27 · 37beb27
2 parents a604008 + 15c3c2a
commit 37beb27
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/field_RANKSUFF_data_module.fypp b/field_RANKSUFF_data_module.fypp
@@ -26,7 +26,7 @@ CONTAINS
 #ifdef _OPENACC
   USE OPENACC
 #endif
-    ${ft.type}$ :: HST (${ft.shape}$), DEV (${ft.shape}$)
+    ${ft.type}$, POINTER :: HST (${ft.shape}$), DEV (${ft.shape}$)
     LOGICAL,                       INTENT (IN) :: MAP_DEVPTR
     INTEGER (KIND=JPIM),           INTENT (IN) :: KDIR
     INTEGER (KIND=JPIM), OPTIONAL, INTENT (IN) :: QUEUE