@@ -40,8 +40,8 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_ABI_SET_FOTRAN_BOOLEANS,
4040 pmpi_abi_set_fortran_booleans_ ,
4141 pmpi_abi_set_fortran_booleans__ ,
4242 pompi_abi_set_fortran_booleans_f ,
43- (MPI_Fint * comm , MPI_Fint * keyval , MPI_Fint * attribute_val , ompi_fortran_logical_t * flag , MPI_Fint * ierr ),
44- (comm , keyval , attribute_val , flag , ierr ) )
43+ (MPI_Fint * logical_size , ompi_fortran_logical_t * logical_true , ompi_fortran_logical_t * logical_false , MPI_Fint * ierr ),
44+ (logical_size , logical_true , logical_false , ierr ) )
4545#endif
4646#endif
4747
@@ -60,8 +60,8 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ABI_SET_FOTRAN_BOOLEANS,
6060 mpi_abi_set_fortran_booleans_ ,
6161 mpi_abi_set_fortran_booleans__ ,
6262 ompi_abi_set_fortran_booleans_f ,
63- (MPI_Fint * comm , MPI_Fint * keyval , MPI_Fint * attribute_val , ompi_fortran_logical_t * flag , MPI_Fint * ierr ),
64- (comm , keyval , attribute_val , flag , ierr ) )
63+ (MPI_Fint * logical_size , ompi_fortran_logical_t * logical_true , ompi_fortran_logical_t * logical_false , MPI_Fint * ierr ),
64+ (logical_size , logical_true , logical_false , ierr ) )
6565#else
6666#define ompi_abi_set_fortran_booleans_f pompi_abi_set_fortran_booleans_f
6767#endif
0 commit comments