From 20fd0ec128b54d6d55e5bdbd6bc2610c406aa3e1 Mon Sep 17 00:00:00 2001 From: Sam Hatfield Date: Wed, 6 Sep 2023 12:57:14 +0100 Subject: [PATCH] Ensure ISTA and ILEN are on device They were treated as `PRESENT` but weren't actually on the device before. --- src/trans/gpu/internal/trltom_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/trans/gpu/internal/trltom_mod.F90 b/src/trans/gpu/internal/trltom_mod.F90 index 1400c683..b94efe54 100755 --- a/src/trans/gpu/internal/trltom_mod.F90 +++ b/src/trans/gpu/internal/trltom_mod.F90 @@ -216,7 +216,7 @@ END FUNCTION ALLTOALLV_CUDAIPC !$OMP& SHARED(ISTA,ILEN,PFBUF,PFBUF_IN) #endif #ifdef ACCGPU - !$ACC PARALLEL LOOP DEFAULT(NONE) PRESENT(ISTA,ILEN,PFBUF,PFBUF_IN) + !$ACC PARALLEL LOOP DEFAULT(NONE) PRESENT(PFBUF,PFBUF_IN) COPYIN(ISTA,ILEN) #endif DO J=ISTA,ISTA+ILEN-1 PFBUF(J) = PFBUF_IN(J)