1
1

fortran: also provide PMPI variants for MPI_Alloc_mem_cptr

r32622 was the first half of the fix -- we need the PMPI variants as well.

Refs trac:4882

This commit was SVN r32627.

The following SVN revision numbers were found above:
  r32622 --> open-mpi/ompi@cf0f734a98

The following Trac tickets were found above:
  Ticket 4882 --> https://svn.open-mpi.org/trac/ompi/ticket/4882
Этот коммит содержится в:
Jeff Squyres 2014-08-28 23:47:38 +00:00
родитель 2a12fd833d
Коммит f4238d65a5
2 изменённых файлов: 17 добавлений и 0 удалений

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

@ -45,6 +45,14 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_ALLOC_MEM,
pompi_alloc_mem_f,
(MPI_Aint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr),
(size, info, baseptr, ierr) )
OMPI_GENERATE_F77_BINDINGS (PMPI_ALLOC_MEM_CPTR,
pmpi_alloc_mem_cptr,
pmpi_alloc_mem_cptr_,
pmpi_alloc_mem_cptr__,
pompi_alloc_mem_f,
(MPI_Aint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr),
(size, info, baseptr, ierr) )
#endif
#if OPAL_HAVE_WEAK_SYMBOLS

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

@ -269,6 +269,15 @@ subroutine PMPI_Alloc_mem(size, info, baseptr, ierror)
integer, intent(out) :: ierror
end subroutine PMPI_Alloc_mem
subroutine PMPI_Alloc_mem_cptr(size, info, baseptr, ierror)
use, intrinsic :: iso_c_binding, only : c_ptr
include 'mpif-config.h'
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
integer, intent(in) :: info
type(c_ptr), intent(out) :: baseptr
integer, intent(out) :: ierror
end subroutine PMPI_Alloc_mem_cptr
end interface