Commit cf3ebb41 authored by William Gropp's avatar William Gropp
Browse files

[svn-r8158] Fix for int not equal to fint case when Fortran support is disabled

parent 98c341f0
......@@ -289,7 +289,7 @@ int MPIR_Allreduce_intra (
uop = (MPI_User_function *) op_ptr->function.c_function;
else {
uop = (MPI_User_function *) op_ptr->function.f77_function;
#ifndef HAVE_FINT_IS_INT
#if defined(HAVE_FORTRAN_BINDING) && !defined(HAVE_FINT_IS_INT)
is_f77_uop = 1;
#endif
}
......
......@@ -98,7 +98,7 @@ static int MPIR_Reduce_binomial (
uop = (MPI_User_function *) op_ptr->function.c_function;
else {
uop = (MPI_User_function *) op_ptr->function.f77_function;
#ifndef HAVE_FINT_IS_INT
#if defined(HAVE_FORTRAN_BINDING) && !defined(HAVE_FINT_IS_INT)
is_f77_uop = 1;
#endif
}
......
......@@ -67,7 +67,7 @@ int MPIR_Reduce_local_impl(void *inbuf, void *inoutbuf, int count, MPI_Datatype
}
else {
uop = (MPI_User_function *) op_ptr->function.f77_function;
#ifndef HAVE_FINT_IS_INT
#if defined(HAVE_FORTRAN_BINDING) && !defined(HAVE_FINT_IS_INT)
is_f77_uop = 1;
#endif
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment