ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

fortran/use-mpi-f08: fix intent of the internal ompi_*_f bindings

Просмотр исходного кода 
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet 2019-04-18 13:29:19 +09:00
родитель 5a55e69b1f
Коммит 232055fc7a
1 изменённых файлов: 9 добавлений и 5 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

14
ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h
Просмотреть файл

@ -7,7 +7,7 @@
! of Tennessee Research Foundation. All rights ! of Tennessee Research Foundation. All rights
! reserved. ! reserved.
! Copyright (c) 2012 Inria. 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. ! and Technology (RIST). All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
! !
@ -498,7 +498,8 @@ subroutine ompi_pack_f(inbuf,incount,datatype,outbuf,outsize, &
position,comm,ierror) & position,comm,ierror) &
BIND(C, name="ompi_pack_f") BIND(C, name="ompi_pack_f")
implicit none 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) :: incount, outsize
INTEGER, INTENT(IN) :: datatype INTEGER, INTENT(IN) :: datatype
INTEGER, INTENT(INOUT) :: position 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 use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none implicit none
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep 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) :: incount
INTEGER, INTENT(IN) :: datatype INTEGER, INTENT(IN) :: datatype
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: outsize INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: outsize
@ -770,7 +772,8 @@ subroutine ompi_unpack_f(inbuf,insize,position,outbuf,outcount, &
datatype,comm,ierror) & datatype,comm,ierror) &
BIND(C, name="ompi_unpack_f") BIND(C, name="ompi_unpack_f")
implicit none 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(IN) :: insize, outcount
INTEGER, INTENT(INOUT) :: position INTEGER, INTENT(INOUT) :: position
INTEGER, INTENT(IN) :: datatype 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 use :: mpi_f08_types, only : MPI_ADDRESS_KIND
implicit none implicit none
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep 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(IN) :: insize
INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position
INTEGER, INTENT(IN) :: outcount INTEGER, INTENT(IN) :: outcount