[mpich2-commits] r7808 - mpich2/trunk/src/mpi/comm

[buntinas at mcs.anl.gov]

Author: buntinas
Date: 2011-01-21 16:22:39 -0600 (Fri, 21 Jan 2011)
New Revision: 7808

Modified:
   mpich2/trunk/src/mpi/comm/commutil.c
Log:
missed adding errfail parameter in nonthreaded code

Modified: mpich2/trunk/src/mpi/comm/commutil.c
===================================================================
--- mpich2/trunk/src/mpi/comm/commutil.c	2011-01-21 19:53:51 UTC (rev 7807)
+++ mpich2/trunk/src/mpi/comm/commutil.c	2011-01-21 22:22:39 UTC (rev 7808)
@@ -690,6 +690,7 @@
 {
     int mpi_errno = MPI_SUCCESS;
     uint32_t     local_mask[MPIR_MAX_CONTEXT_MASK];
+    int errflag = FALSE;
     MPID_MPI_STATE_DECL(MPID_STATE_MPIR_GET_CONTEXTID);
 
     MPID_MPI_FUNC_ENTER(MPID_STATE_MPIR_GET_CONTEXTID);
@@ -712,8 +713,9 @@
     /* Note that this is the unthreaded version */
     /* Comm must be an intracommunicator */
     mpi_errno = MPIR_Allreduce_impl( MPI_IN_PLACE, local_mask, MPIR_MAX_CONTEXT_MASK, 
-                                     MPI_INT, MPI_BAND, comm_ptr );
+                                     MPI_INT, MPI_BAND, comm_ptr, &errflag);
     if (mpi_errno) MPIU_ERR_POP(mpi_errno);
+    MPIU_ERR_CHKANDJUMP(errflag, mpi_errno, MPI_ERR_OTHER, "**coll_fail");
 
     if (ignore_id) {
         *context_id = MPIR_Locate_context_bit(local_mask);