[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2a2-166-gbf021b6

[Service Account]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "MPICH primary repository".

The branch, master has been updated
       via  bf021b67ef829f1bf8d2562f34f9b327d7603058 (commit)
      from  be7c17b3177ccb0ede49761b44a438952360b061 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.mpich.org/mpich.git/commitdiff/bf021b67ef829f1bf8d2562f34f9b327d7603058

commit bf021b67ef829f1bf8d2562f34f9b327d7603058
Author: Igor Ivanov <Igor.Ivanov at itseez.com>
Date:   Wed Feb 18 14:05:19 2015 +0200

    mpi/coll: Fix a bug in MPI_Scan
    
    This issue was added in commit [54362c0].
    
    Signed-off-by: Igor Ivanov <Igor.Ivanov at itseez.com>
    Signed-off-by: Wesley Bland <wbland at anl.gov>

diff --git a/src/mpi/coll/scan.c b/src/mpi/coll/scan.c
index ee3bf89..0c08fdf 100644
--- a/src/mpi/coll/scan.c
+++ b/src/mpi/coll/scan.c
@@ -303,7 +303,7 @@ int MPIR_Scan(
     {
         mpi_errno = MPIC_Recv(localfulldata, count, datatype,
                                  comm_ptr->node_comm->local_size - 1, MPIR_SCAN_TAG, 
-                                 comm_ptr, &status, errflag);
+                                 comm_ptr->node_comm, &status, errflag);
         if (mpi_errno) {
             /* for communication errors, just record the error but continue */
             *errflag = MPIR_ERR_GET_CLASS(mpi_errno);
@@ -316,7 +316,7 @@ int MPIR_Scan(
              MPIU_Get_intranode_rank(comm_ptr, rank) == comm_ptr->node_comm->local_size - 1)
     {
         mpi_errno = MPIC_Send(recvbuf, count, datatype,
-                                 0, MPIR_SCAN_TAG, comm_ptr, errflag);
+                                 0, MPIR_SCAN_TAG, comm_ptr->node_comm, errflag);
         if (mpi_errno) {
             /* for communication errors, just record the error but continue */
             *errflag = MPIR_ERR_GET_CLASS(mpi_errno);
@@ -349,7 +349,7 @@ int MPIR_Scan(
         {
             mpi_errno = MPIC_Send(prefulldata, count, datatype,
                                      MPIU_Get_internode_rank(comm_ptr, rank) + 1,
-                                     MPIR_SCAN_TAG, comm_ptr, errflag);
+                                     MPIR_SCAN_TAG, comm_ptr->node_roots_comm, errflag);
             if (mpi_errno) {
                 /* for communication errors, just record the error but continue */
                 *errflag = MPIR_ERR_GET_CLASS(mpi_errno);
@@ -361,7 +361,7 @@ int MPIR_Scan(
         {
             mpi_errno = MPIC_Recv(tempbuf, count, datatype,
                                      MPIU_Get_internode_rank(comm_ptr, rank) - 1,
-                                     MPIR_SCAN_TAG, comm_ptr, &status, errflag);
+                                     MPIR_SCAN_TAG, comm_ptr->node_roots_comm, &status, errflag);
             noneed = 0;
             if (mpi_errno) {
                 /* for communication errors, just record the error but continue */

-----------------------------------------------------------------------

Summary of changes:
 src/mpi/coll/scan.c |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
MPICH primary repository