From 872f576e4007c9001ae95631133864e99ccd006a Mon Sep 17 00:00:00 2001 From: DJDavies2 Date: Wed, 21 Jan 2026 16:37:24 +0000 Subject: [PATCH] Fix fiat_test_alltoallv --- src/fiat/mpl/internal_deprecated/mpl_alltoallv_mod.F90 | 9 +++++---- .../mpl/internal_deprecated/mpl_displs_container_mod.F90 | 2 +- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/fiat/mpl/internal_deprecated/mpl_alltoallv_mod.F90 b/src/fiat/mpl/internal_deprecated/mpl_alltoallv_mod.F90 index efeaa5a1..67dc614f 100644 --- a/src/fiat/mpl/internal_deprecated/mpl_alltoallv_mod.F90 +++ b/src/fiat/mpl/internal_deprecated/mpl_alltoallv_mod.F90 @@ -227,7 +227,7 @@ SUBROUTINE MPL_ALLTOALLV_REAL8(PSENDBUF,KSENDCOUNTS,PRECVBUF,KRECVCOUNTS,& CHARACTER(LEN=*),INTENT(IN),OPTIONAL :: CDSTRING INTEGER(KIND=JPIM),INTENT(OUT),OPTIONAL :: KREQUEST,KERROR - INTEGER(KIND=JPIM) :: IRECVDISPL(MPL_NUMPROC),ISENDDISPL(MPL_NUMPROC) + INTEGER(KIND=JPIM),TARGET :: IRECVDISPL(MPL_NUMPROC),ISENDDISPL(MPL_NUMPROC) INTEGER(KIND=JPIM),POINTER :: KISENDDISPL_PT(:),KIRECVDISPL_PT(:) ISENDCOUNT=SIZE(PSENDBUF) @@ -303,7 +303,7 @@ SUBROUTINE MPL_ALLTOALLV_REAL4(PSENDBUF,KSENDCOUNTS,PRECVBUF,KRECVCOUNTS,& CHARACTER(LEN=*),INTENT(IN),OPTIONAL :: CDSTRING INTEGER(KIND=JPIM),INTENT(OUT),OPTIONAL :: KREQUEST,KERROR - INTEGER(KIND=JPIM) :: IRECVDISPL(MPL_NUMPROC),ISENDDISPL(MPL_NUMPROC) + INTEGER(KIND=JPIM),TARGET :: IRECVDISPL(MPL_NUMPROC),ISENDDISPL(MPL_NUMPROC) INTEGER(KIND=JPIM),POINTER :: KISENDDISPL_PT(:),KIRECVDISPL_PT(:) ISENDCOUNT=SIZE(PSENDBUF) @@ -372,11 +372,12 @@ SUBROUTINE MPL_ALLTOALLV_INTEGER(KSENDBUF,KSENDCOUNTS,KRECVBUF,KRECVCOUNTS,& INTEGER(KIND=JPIM), INTENT(IN) :: KSENDCOUNTS(:), KRECVCOUNTS(:) INTEGER(KIND=JPIM), INTENT(IN) :: KSENDBUF(:) INTEGER(KIND=JPIM), INTENT(OUT) :: KRECVBUF(:) - INTEGER(KIND=JPIM), INTENT(IN),OPTIONAL :: KSENDDISPL(:), KRECVDISPL(:), KCOMM,KMP_TYPE + INTEGER(KIND=JPIM), INTENT(IN),OPTIONAL,TARGET :: KSENDDISPL(:), KRECVDISPL(:) + INTEGER(KIND=JPIM), INTENT(IN),OPTIONAL :: KCOMM,KMP_TYPE CHARACTER(LEN=*),INTENT(IN),OPTIONAL :: CDSTRING INTEGER(KIND=JPIM),INTENT(OUT),OPTIONAL :: KREQUEST,KERROR - INTEGER(KIND=JPIM) :: IRECVDISPL(MPL_NUMPROC),ISENDDISPL(MPL_NUMPROC) + INTEGER(KIND=JPIM),TARGET :: IRECVDISPL(MPL_NUMPROC),ISENDDISPL(MPL_NUMPROC) INTEGER(KIND=JPIM),POINTER :: KISENDDISPL_PT(:),KIRECVDISPL_PT(:) ISENDCOUNT=SIZE(KSENDBUF) diff --git a/src/fiat/mpl/internal_deprecated/mpl_displs_container_mod.F90 b/src/fiat/mpl/internal_deprecated/mpl_displs_container_mod.F90 index dceabe87..c94499fd 100644 --- a/src/fiat/mpl/internal_deprecated/mpl_displs_container_mod.F90 +++ b/src/fiat/mpl/internal_deprecated/mpl_displs_container_mod.F90 @@ -177,7 +177,7 @@ END FUNCTION GET_NPROC SUBROUTINE APPEND(THIS, KREQ, KNPROC, KSEND_PT, KRECV_PT, NO_NEW_NODE) -CLASS(LIST_MANAGER), INTENT(INOUT) :: THIS +CLASS(LIST_MANAGER), TARGET, INTENT(INOUT) :: THIS INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL :: KREQ, KNPROC INTEGER(KIND=JPIM), POINTER, INTENT(OUT), OPTIONAL :: KSEND_PT(:), KRECV_PT(:) LOGICAL, INTENT(IN), OPTIONAL :: NO_NEW_NODE