Skip to content

Commit b0af346

Browse files
authored
Merge pull request #13524 from hppritcha/request_get_status_some_f_prob
2 parents 800b047 + 8cb3ba6 commit b0af346

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)