A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge pull request #2 from mquinson/master
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
coll
/
red_scat_block.c
diff --git
a/teshsuite/smpi/mpich3-test/coll/red_scat_block.c
b/teshsuite/smpi/mpich3-test/coll/red_scat_block.c
index
7891cb6
..
3f35fb3
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/coll/red_scat_block.c
+++ b/
teshsuite/smpi/mpich3-test/coll/red_scat_block.c
@@
-42,6
+42,7
@@
int main(int argc, char **argv)
err++;
fprintf(stderr, "unable to allocate send/recv buffers, aborting");
MPI_Abort(MPI_COMM_WORLD, 1);
err++;
fprintf(stderr, "unable to allocate send/recv buffers, aborting");
MPI_Abort(MPI_COMM_WORLD, 1);
+ exit(1);
}
for (i=0; i<size; i++)
sendbuf[i] = rank + i;
}
for (i=0; i<size; i++)
sendbuf[i] = rank + i;
@@
-69,6
+70,11
@@
int main(int argc, char **argv)
fprintf(stdout, "Did not get expected value for reduce scatter block\n");
fprintf(stdout, "[%d] Got %d expected %d\n", rank, recvbuf[0], sumval);
}
fprintf(stdout, "Did not get expected value for reduce scatter block\n");
fprintf(stdout, "[%d] Got %d expected %d\n", rank, recvbuf[0], sumval);
}
+
+ MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
+ if (MPI_SUCCESS == MPI_Reduce_scatter_block(recvbuf, recvbuf, 1, MPI_INT, MPI_SUM, comm))
+ err++;
+
free(recvbuf);
#endif
free(recvbuf);
#endif