binding/f77: fix decalaration of MPII_op_create

Use F77_OpFunction instead of MPI_User_function. The `MPI_Datatype *` in MPI_User_function may not match the `MPI_Fint *` in F77_OpFunction.
pmodels · Apr 30, 2024 · 7c484a8 · 7c484a8
1 parent 08b68f5
commit 7c484a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/binding/fortran/mpif_h/mpi_fortimpl.h b/src/binding/fortran/mpif_h/mpi_fortimpl.h
@@ -401,7 +401,7 @@ typedef void (FORT_CALL F77_OpFunction) (void *, void *, MPI_Fint *, MPI_Fint *)
 typedef void (FORT_CALL F77_ErrFunction) (MPI_Fint *, MPI_Fint *);
 
 void MPII_Keyval_set_f90_proxy(int keyval);
-int MPII_op_create(MPI_User_function * opfn, MPI_Fint commute, MPI_Fint * op);
+int MPII_op_create(F77_OpFunction * opfn, MPI_Fint commute, MPI_Fint * op);
 int MPII_errhan_create(F77_ErrFunction * err_fn, MPI_Fint * errhandler, enum F77_handle_type type);
 
 extern FORT_DLL_SPEC void FORT_CALL mpi_alloc_mem_cptr_(MPI_Aint * size, MPI_Fint * info,