- 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);