Skip to content

Commit 8cb3ba6

Browse files
committed
fortran:fix a problem with request_get_some
it doesn't compile for integer(kind=8) default without this patch Signed-off-by: Howard Pritchard <howardp@lanl.gov>
1 parent 800b047 commit 8cb3ba6

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

ompi/mpi/fortran/mpif-h/request_get_status_some_f.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -116,7 +116,7 @@ void ompi_request_get_status_some_f(MPI_Fint *incount, MPI_Fint *array_of_reques
116116
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
117117

118118
if (MPI_SUCCESS == c_ierr) {
119-
OMPI_SINGLE_INT_2_FINT(*outcount);
119+
OMPI_SINGLE_INT_2_FINT(outcount);
120120

121121
if (MPI_UNDEFINED != OMPI_FINT_2_INT(*outcount)) {
122122
OMPI_ARRAY_INT_2_FINT(array_of_indices, *outcount);

0 commit comments

Comments
 (0)