Skip to content

Commit f66ef68

Browse files
committed
fortran: fix it
Signed-off-by: Howard Pritchard <[email protected]>
1 parent a27a1b4 commit f66ef68

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

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

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)