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/bf021b67ef829f1bf8d2562f34f9b327d7... commit bf021b67ef829f1bf8d2562f34f9b327d7603058 Author: Igor Ivanov <[email protected]> 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 <[email protected]> Signed-off-by: Wesley Bland <[email protected]> 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