From 232055fc7abf7e642ff9a8ecfd9048d1be293758 Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Thu, 18 Apr 2019 13:29:19 +0900 Subject: [PATCH] fortran/use-mpi-f08: fix intent of the internal ompi_*_f bindings Signed-off-by: Gilles Gouaillardet --- .../use-mpi-f08/bindings/mpi-f-interfaces-bind.h | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h index 87892a2f83..3243711234 100644 --- a/ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h +++ b/ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h @@ -7,7 +7,7 @@ ! of Tennessee Research Foundation. All rights ! reserved. ! Copyright (c) 2012 Inria. All rights reserved. -! Copyright (c) 2015-2018 Research Organization for Information Science +! Copyright (c) 2015-2019 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ ! @@ -498,7 +498,8 @@ subroutine ompi_pack_f(inbuf,incount,datatype,outbuf,outsize, & position,comm,ierror) & BIND(C, name="ompi_pack_f") implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE :: outbuf INTEGER, INTENT(IN) :: incount, outsize INTEGER, INTENT(IN) :: datatype INTEGER, INTENT(INOUT) :: position @@ -513,7 +514,8 @@ subroutine ompi_pack_external_f(datarep,inbuf,incount,datatype, & use :: mpi_f08_types, only : MPI_ADDRESS_KIND implicit none CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE :: outbuf INTEGER, INTENT(IN) :: incount INTEGER, INTENT(IN) :: datatype INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: outsize @@ -770,7 +772,8 @@ subroutine ompi_unpack_f(inbuf,insize,position,outbuf,outcount, & datatype,comm,ierror) & BIND(C, name="ompi_unpack_f") implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE :: outbuf INTEGER, INTENT(IN) :: insize, outcount INTEGER, INTENT(INOUT) :: position INTEGER, INTENT(IN) :: datatype @@ -785,7 +788,8 @@ subroutine ompi_unpack_external_f(datarep,inbuf,insize,position, & use :: mpi_f08_types, only : MPI_ADDRESS_KIND implicit none CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf + OMPI_FORTRAN_IGNORE_TKR_TYPE :: outbuf INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: insize INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position INTEGER, INTENT(IN) :: outcount