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 9d508d5d83f35978ffaaae1557280969ff47201c (commit) from 5324a41f661085fdcd6c6365635accf9fa65839a (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/9d508d5d83f35978ffaaae1557280969ff... commit 9d508d5d83f35978ffaaae1557280969ff47201c Author: Lena Oden <[email protected]> Date: Wed Jun 10 12:43:37 2015 -0500 Add a isend-irecv test for multiple processors This test uses irecv and isend to transfer data in an alltoall manner between multiple processes. The idea of this test is testing, if MPI can handle multiple processes trying to connect to each other from both sides at the same time. Signed-off-by: Antonio J. Pena <[email protected]> diff --git a/test/mpi/pt2pt/Makefile.am b/test/mpi/pt2pt/Makefile.am index 9c5d352..d31d31c 100644 --- a/test/mpi/pt2pt/Makefile.am +++ b/test/mpi/pt2pt/Makefile.am @@ -25,6 +25,7 @@ noinst_PROGRAMS = \ cancelanysrc \ isendself \ issendselfcancel \ + isendirecv \ sendself \ eagerdt \ isendselfprobe \ diff --git a/test/mpi/pt2pt/isendirecv.c b/test/mpi/pt2pt/isendirecv.c new file mode 100644 index 0000000..e2fccf6 --- /dev/null +++ b/test/mpi/pt2pt/isendirecv.c @@ -0,0 +1,48 @@ +/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */ +/* + * + * (C) 2015 by Argonne National Laboratory. + * See COPYRIGHT in top-level directory. + */ + +#include "mpi.h" +#include <stdlib.h> +#include <stdio.h> +#include "mpitest.h" + +int main(int argc, char *argv[]) +{ + int errors = 0; + int elems = 20; + int rank, nproc, dest, i; + float *in_buf, *out_buf; + MPI_Comm comm; + MPI_Request *reqs; + + MTest_Init(&argc, &argv); + + comm = MPI_COMM_WORLD; + MPI_Comm_rank(comm, &rank); + MPI_Comm_size(comm, &nproc); + + reqs = (MPI_Request *)malloc(2 * nproc * sizeof(MPI_Request)); + in_buf = (float *)malloc(elems * nproc * sizeof(float)); + out_buf = (float *)malloc(elems * nproc * sizeof(float)); + + for (i=0; i<nproc; i++) { + MPI_Irecv(&in_buf[elems*i], elems, MPI_FLOAT, i, + 0, comm, &reqs[i]); + } + + for (i=0; i<nproc; i++) { + MPI_Isend(&out_buf[elems*i], elems, MPI_FLOAT, i, 0, + comm, &reqs[i+nproc]); + } + + MPI_Waitall(nproc*2,reqs, MPI_STATUSES_IGNORE); + + MTest_Finalize(errors); + MPI_Finalize(); + return 0; + +} diff --git a/test/mpi/pt2pt/testlist b/test/mpi/pt2pt/testlist index 8f5afbb..aa45f32 100644 --- a/test/mpi/pt2pt/testlist +++ b/test/mpi/pt2pt/testlist @@ -17,6 +17,7 @@ bsendalign 2 bsendpending 2 isendself 1 issendselfcancel 1 +isendirecv 10 bsendfrag 2 icsend 4 rqstatus 2 ----------------------------------------------------------------------- Summary of changes: test/mpi/pt2pt/Makefile.am | 1 + test/mpi/pt2pt/isendirecv.c | 48 +++++++++++++++++++++++++++++++++++++++++++ test/mpi/pt2pt/testlist | 1 + 3 files changed, 50 insertions(+), 0 deletions(-) create mode 100644 test/mpi/pt2pt/isendirecv.c hooks/post-receive -- MPICH primary repository