X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c81c99a491282f76757c2673961e3cdee6853539..239db2df2d2884b52782ad2c7cf141179bf9c352:/teshsuite/smpi/mpich3-test/pt2pt/icsend.c diff --git a/teshsuite/smpi/mpich3-test/pt2pt/icsend.c b/teshsuite/smpi/mpich3-test/pt2pt/icsend.c index ae196ef438..9981846880 100644 --- a/teshsuite/smpi/mpich3-test/pt2pt/icsend.c +++ b/teshsuite/smpi/mpich3-test/pt2pt/icsend.c @@ -12,61 +12,62 @@ static char MTEST_Descrip[] = "Simple test of intercommunicator send and receive"; */ -int main( int argc, char *argv[] ) +int main(int argc, char *argv[]) { int errs = 0; int leftGroup, buf, rank, remote_size, i; MPI_Comm comm; MPI_Status status; - MTest_Init( &argc, &argv ); + MTest_Init(&argc, &argv); - while (MTestGetIntercomm( &comm, &leftGroup, 4 )) { - if (comm == MPI_COMM_NULL) continue; + while (MTestGetIntercomm(&comm, &leftGroup, 4)) { + if (comm == MPI_COMM_NULL) + continue; - if (leftGroup) { - MPI_Comm_rank( comm, &rank ); - buf = rank; - MPI_Send( &buf, 1, MPI_INT, 0, 0, comm ); - } - else { - MPI_Comm_remote_size( comm, &remote_size ); - MPI_Comm_rank( comm, &rank ); - if (rank == 0) { - for (i=0; i