if ((MPI_Aint)attribute_val != (MPI_Aint)world_rank) {
printf( "incorrect attribute value %d\n", *(int*)attribute_val );
MPI_Abort(MPI_COMM_WORLD, 1005 );
+ exit(1005);
}
return MPI_SUCCESS;
}
errs++;
printf( "incorrect rank in world comm: %d\n", rank );
MPI_Abort(MPI_COMM_WORLD, 3001 );
+ exit(3001);
}
n = world_size / 2;
errs++;
printf( "incorrect lo group rank: %d\n", rank ); fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, 3002 );
+ exit(3002);
}
else {
/* printf( "lo in\n" );FFLUSH; */
errs++;
printf( "rank : %d incorrect lo comm:\n", rank ); fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, 3003 );
+ exit(3003);
}
}
printf( "dup_comm key_1 not found on %d\n", world_rank );
fflush( stdout );
MPI_Abort(MPI_COMM_WORLD, 3004 );
+ exit(3004);
}
if (value != world_rank) {
(long)value, world_rank );
fflush( stdout );
MPI_Abort(MPI_COMM_WORLD, 3005 );
+ exit(3005);
}
MPI_Attr_get(dup_comm, key_3, (void **)&vvalue, &flag );
printf( "dup_comm key_3 found!\n" );
fflush( stdout );
MPI_Abort(MPI_COMM_WORLD, 3008 );
+ exit(3008);
}
MPI_Keyval_free(&key_1 );
MPI_Keyval_free(&key_3 );
errs++;
printf( "incorrect split rank: %d\n", rank ); fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, 3009 );
+ exit(3009);
}
MPI_Barrier(split_comm );
errs++;
printf( "incorrect ident result: %d\n", result );
MPI_Abort(MPI_COMM_WORLD, 3010 );
+ exit(3010);
}
if (lo_comm != MPI_COMM_NULL) {
errs++;
printf( "incorrect congruent result: %d\n", result );
MPI_Abort(MPI_COMM_WORLD, 3011 );
+ exit(3011);
}
}
errs++;
printf( "incorrect similar result: %d\n", result );
MPI_Abort(MPI_COMM_WORLD, 3012 );
+ exit(3012);
}
if (lo_comm != MPI_COMM_NULL) {
errs++;
printf( "incorrect unequal result: %d\n", result );
MPI_Abort(MPI_COMM_WORLD, 3013 );
+ exit(3013);
}
}
/*