- MPI_Comm_group( comm, &group );
- rc = MPI_Group_incl( group, 0, 0, &outgroup );
- if (rc) {
- errs++;
- MTestPrintError( rc );
- printf( "Error in creating an empty group with (0,0)\n" );
-
- /* Some MPI implementations may reject a null "ranks" pointer */
- rc = MPI_Group_incl( group, 0, ranks, &outgroup );
- if (rc) {
- errs++;
- MTestPrintError( rc );
- printf( "Error in creating an empty group with (0,ranks)\n" );
- }
- }
+ MPI_Comm_group(comm, &group);
+ rc = MPI_Group_incl(group, 0, 0, &outgroup);
+ if (rc) {
+ errs++;
+ MTestPrintError(rc);
+ printf("Error in creating an empty group with (0,0)\n");