mpi_f08: restore C/Fortran compatibility with F08 BUFFER_DETACH
The C int/Fint interoperability code was erroneously removed when this function was moved to the use-mpi-f08 directory.
Этот коммит содержится в:
родитель
c6bb227073
Коммит
d5e16839e9
@ -53,13 +53,15 @@ void ompi_buffer_detach_f08(char *buffer, MPI_Fint *size, MPI_Fint *ierr)
|
|||||||
{
|
{
|
||||||
int c_ierr;
|
int c_ierr;
|
||||||
void *dummy;
|
void *dummy;
|
||||||
|
OMPI_SINGLE_NAME_DECL(size);
|
||||||
|
|
||||||
c_ierr = MPI_Buffer_detach(&dummy, size);
|
c_ierr = MPI_Buffer_detach(&dummy, OMPI_SINGLE_NAME_CONVERT(size));
|
||||||
if (NULL != ierr) {
|
if (NULL != ierr) {
|
||||||
*ierr = OMPI_INT_2_FINT(c_ierr);
|
*ierr = OMPI_INT_2_FINT(c_ierr);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (MPI_SUCCESS == c_ierr) {
|
if (MPI_SUCCESS == c_ierr) {
|
||||||
|
OMPI_SINGLE_INT_2_FINT(size);
|
||||||
*(void **)buffer = dummy;
|
*(void **)buffer = dummy;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user