Skip to content

Commit d5e1683

Browse files
committed
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.
1 parent c6bb227 commit d5e1683

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

ompi/mpi/fortran/use-mpi-f08/buffer_detach.c

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -53,13 +53,15 @@ void ompi_buffer_detach_f08(char *buffer, MPI_Fint *size, MPI_Fint *ierr)
5353
{
5454
int c_ierr;
5555
void *dummy;
56+
OMPI_SINGLE_NAME_DECL(size);
5657

57-
c_ierr = MPI_Buffer_detach(&dummy, size);
58+
c_ierr = MPI_Buffer_detach(&dummy, OMPI_SINGLE_NAME_CONVERT(size));
5859
if (NULL != ierr) {
5960
*ierr = OMPI_INT_2_FINT(c_ierr);
6061
}
6162

6263
if (MPI_SUCCESS == c_ierr) {
64+
OMPI_SINGLE_INT_2_FINT(size);
6365
*(void **)buffer = dummy;
6466
}
6567
}

0 commit comments

Comments
 (0)