1
1

Add some missing declarations to allow the new Fortran neighbor

collective interfaces to compile.

This commit was SVN r29283.
Этот коммит содержится в:
Jeff Squyres 2013-09-28 12:14:25 +00:00
родитель 76450fe629
Коммит c0232e031c
2 изменённых файлов: 3 добавлений и 1 удалений

Просмотреть файл

@ -4416,7 +4416,7 @@ interface MPI_Neighbor_alltoallw
subroutine MPI_Neighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, &
rdispls,recvtypes,comm,ierror &
) OMPI_F08_INTERFACE_BIND_C("MPI_Neighbor_alltoallw_f08")
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Aint
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Aint, MPI_ADDRESS_KIND
implicit none
!DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf
!$PRAGMA IGNORE_TKR sendbuf, recvbuf

Просмотреть файл

@ -1705,6 +1705,7 @@ interface MPI_Ineighbor_alltoallw
subroutine MPI_Ineighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
recvcounts, rdispls, recvtypes, comm, request, ierror)
include 'mpif-config.h'
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts
@ -2253,6 +2254,7 @@ interface MPI_Neighbor_alltoallw
subroutine MPI_Neighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
recvcounts, rdispls, recvtypes, comm, ierror)
include 'mpif-config.h'
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf
@OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf
integer, dimension(*), intent(in) :: sendcounts