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

src/mpi/coll/allreduce.c

@@ -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
 	    }

src/mpi/coll/reduce.c

@@ -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
 	}

src/mpi/coll/reduce_local.c

@@ -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
             }