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 ( ...@@ -289,7 +289,7 @@ int MPIR_Allreduce_intra (
uop = (MPI_User_function *) op_ptr->function.c_function; uop = (MPI_User_function *) op_ptr->function.c_function;
else { else {
uop = (MPI_User_function *) op_ptr->function.f77_function; 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; is_f77_uop = 1;
#endif #endif
} }
......
...@@ -98,7 +98,7 @@ static int MPIR_Reduce_binomial ( ...@@ -98,7 +98,7 @@ static int MPIR_Reduce_binomial (
uop = (MPI_User_function *) op_ptr->function.c_function; uop = (MPI_User_function *) op_ptr->function.c_function;
else { else {
uop = (MPI_User_function *) op_ptr->function.f77_function; 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; is_f77_uop = 1;
#endif #endif
} }
......
...@@ -67,7 +67,7 @@ int MPIR_Reduce_local_impl(void *inbuf, void *inoutbuf, int count, MPI_Datatype ...@@ -67,7 +67,7 @@ int MPIR_Reduce_local_impl(void *inbuf, void *inoutbuf, int count, MPI_Datatype
} }
else { else {
uop = (MPI_User_function *) op_ptr->function.f77_function; 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; is_f77_uop = 1;
#endif #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