X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/aac4ba41ea27fe8168bebed009abebd7e5c3f006..4cdc0f888550cbaefe6094ae801230336d005337:/teshsuite/smpi/mpich3-test/rma/getgroup.c diff --git a/teshsuite/smpi/mpich3-test/rma/getgroup.c b/teshsuite/smpi/mpich3-test/rma/getgroup.c index 4dd0c0db93..051bb5f561 100644 --- a/teshsuite/smpi/mpich3-test/rma/getgroup.c +++ b/teshsuite/smpi/mpich3-test/rma/getgroup.c @@ -12,41 +12,41 @@ static char MTEST_Descrip[] = "Test of Win_get_group"; */ -int main( int argc, char *argv[] ) +int main(int argc, char *argv[]) { int errs = 0; int result; int buf[10]; - MPI_Win win; + MPI_Win win; MPI_Group group, wingroup; int minsize = 2; - MPI_Comm comm; + MPI_Comm comm; - MTest_Init( &argc, &argv ); + MTest_Init(&argc, &argv); - /* The following illustrates the use of the routines to - run through a selection of communicators and datatypes. - Use subsets of these for tests that do not involve combinations - of communicators, datatypes, and counts of datatypes */ - while (MTestGetIntracommGeneral( &comm, minsize, 1 )) { - if (comm == MPI_COMM_NULL) continue; + /* The following illustrates the use of the routines to + * run through a selection of communicators and datatypes. + * Use subsets of these for tests that do not involve combinations + * of communicators, datatypes, and counts of datatypes */ + while (MTestGetIntracommGeneral(&comm, minsize, 1)) { + if (comm == MPI_COMM_NULL) + continue; - MPI_Win_create( buf, sizeof(int) * 10, sizeof(int), - MPI_INFO_NULL, comm, &win ); - MPI_Win_get_group( win, &wingroup ); - MPI_Comm_group( comm, &group ); - MPI_Group_compare( group, wingroup, &result ); - if (result != MPI_IDENT) { - errs++; - fprintf( stderr, "Group returned by Win_get_group not the same as the input group\n" ); - } - MPI_Group_free( &wingroup ); - MPI_Group_free( &group ); - MPI_Win_free( &win ); + MPI_Win_create(buf, sizeof(int) * 10, sizeof(int), MPI_INFO_NULL, comm, &win); + MPI_Win_get_group(win, &wingroup); + MPI_Comm_group(comm, &group); + MPI_Group_compare(group, wingroup, &result); + if (result != MPI_IDENT) { + errs++; + fprintf(stderr, "Group returned by Win_get_group not the same as the input group\n"); + } + MPI_Group_free(&wingroup); + MPI_Group_free(&group); + MPI_Win_free(&win); MTestFreeComm(&comm); } - MTest_Finalize( errs ); + MTest_Finalize(errs); MPI_Finalize(); return 0; }