[mpich2-commits] r3935 - mpich2/trunk/src/mpi/coll

[balaji at mcs.anl.gov]

Author: balaji
Date: 2009-03-04 15:43:51 -0600 (Wed, 04 Mar 2009)
New Revision: 3935

Modified:
   mpich2/trunk/src/mpi/coll/gatherv.c
Log:
Fix to the inplacef failure. Ticket #432. No reviewer.

Modified: mpich2/trunk/src/mpi/coll/gatherv.c
===================================================================
--- mpich2/trunk/src/mpi/coll/gatherv.c	2009-03-04 20:46:33 UTC (rev 3934)
+++ mpich2/trunk/src/mpi/coll/gatherv.c	2009-03-04 21:43:51 UTC (rev 3935)
@@ -87,11 +87,12 @@
         reqs = 0;
         for (i = 0; i < comm_size; i++) {
             if (recvcnts[i]) {
-                if ((comm_ptr->comm_kind == MPID_INTRACOMM) && (i == rank) &&
-                    (sendbuf != MPI_IN_PLACE)) {
-                    mpi_errno = MPIR_Localcopy(sendbuf, sendcnt, sendtype,
-                                               ((char *)recvbuf+displs[rank]*extent), 
-                                               recvcnts[rank], recvtype);
+                if ((comm_ptr->comm_kind == MPID_INTRACOMM) && (i == rank)) {
+                    if (sendbuf != MPI_IN_PLACE) {
+                        mpi_errno = MPIR_Localcopy(sendbuf, sendcnt, sendtype,
+                                                   ((char *)recvbuf+displs[rank]*extent), 
+                                                   recvcnts[rank], recvtype);
+                    }
                 }
                 else {
                     mpi_errno = MPIC_Irecv(((char *)recvbuf+displs[i]*extent),