1
1

Fix a typo that breaks the F77 build.

This commit was SVN r22140.
Этот коммит содержится в:
Shiqing Fan 2009-10-26 13:17:55 +00:00
родитель 1346b677fa
Коммит 8bdd70400a

Просмотреть файл

@ -65,8 +65,8 @@ void mpi_op_commutative_f(MPI_Fint *op, MPI_Fint *commute, MPI_Fint *ierr)
c_op = MPI_Op_f2c(*op);
*ierr = OMPI_INT_2_FINT(MPI_op_commutative(c_op,
OMPI_SINGLE_NAME_CONVERT(commute));
*ierr = OMPI_INT_2_FINT(MPI_Op_commutative(c_op,
OMPI_SINGLE_NAME_CONVERT(commute)));
if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
OMPI_SINGLE_INT_2_FINT(commute);
}