[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.1.1-34-g2aaf74f
Service Account
noreply at mpich.org
Sat Jun 28 20:44:07 CDT 2014
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 2aaf74f0e571ad66600f008be2d89828c90e04c0 (commit)
from be899ea13f787849985f87e77758d5e25549aa54 (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/2aaf74f0e571ad66600f008be2d89828c90e04c0
commit 2aaf74f0e571ad66600f008be2d89828c90e04c0
Author: Xin Zhao <xinzhao3 at illinois.edu>
Date: Fri Jun 27 16:02:09 2014 -0500
fix bug: delete incorrect lines in fetch_and_op.c
In all-to-all communication tests in fetch_and_op.c, the result
buffer is always set by origin right after MPI_Fetch_and_op,
which is not correct. Delete those lines.
Signed-off-by: Pavan Balaji <balaji at anl.gov>
diff --git a/test/mpi/rma/fetch_and_op.c b/test/mpi/rma/fetch_and_op.c
index 93503dd..f8b7fb2 100644
--- a/test/mpi/rma/fetch_and_op.c
+++ b/test/mpi/rma/fetch_and_op.c
@@ -154,7 +154,6 @@ int main(int argc, char **argv) {
for (j = 0; j < nproc; j++) {
TYPE_C rank_cnv = (TYPE_C) rank;
MPI_Fetch_and_op(&rank_cnv, &res_ptr[j], TYPE_MPI, j, rank, MPI_SUM, win);
- res_ptr[j] = i*rank;
}
MPI_Win_fence(MPI_MODE_NOSUCCEED, win);
MPI_Barrier(MPI_COMM_WORLD);
@@ -188,7 +187,6 @@ int main(int argc, char **argv) {
for (j = 0; j < nproc; j++) {
TYPE_C rank_cnv = (TYPE_C) rank;
MPI_Fetch_and_op(&rank_cnv, &res_ptr[j], TYPE_MPI, j, rank, MPI_SUM, win);
- res_ptr[j] = i*rank;
}
MPI_Win_unlock_all(win);
MPI_Barrier(MPI_COMM_WORLD);
@@ -222,7 +220,6 @@ int main(int argc, char **argv) {
for (j = 0; j < nproc; j++) {
TYPE_C rank_cnv = (TYPE_C) rank;
MPI_Fetch_and_op(&rank_cnv, &res_ptr[j], TYPE_MPI, j, rank, MPI_SUM, win);
- res_ptr[j] = i*rank;
MPI_Win_flush(j, win);
}
MPI_Win_unlock_all(win);
-----------------------------------------------------------------------
Summary of changes:
test/mpi/rma/fetch_and_op.c | 3 ---
1 files changed, 0 insertions(+), 3 deletions(-)
hooks/post-receive
--
MPICH primary repository
More information about the commits
mailing list