- for (i=0; i<1000; i++) {
- for (j=0; j<200; j++) {
- err = MPI_Comm_dup( newcomm1, &newcomm2[j] );
- if (err) {
- errs++;
- if (errs < 10) {
- fprintf( stderr, "Failed to duplicate communicator for (%d,%d)\n", i, j );
- MTestPrintError( err );
- }
- }
- }
- for (j=0; j<200; j++) {
- err = MPI_Comm_free( &newcomm2[j] );
- if (err) {
- errs++;
- if (errs < 10) {
- fprintf( stderr, "Failed to free %d,%d\n", i, j );
- MTestPrintError( err );
- }
- }
- }
+ for (i = 0; i < 100; i++) {
+ for (j = 0; j < 200; j++) {
+ err = MPI_Comm_dup(newcomm1, &newcomm2[j]);
+ if (err) {
+ errs++;
+ if (errs < 10) {
+ fprintf(stderr, "Failed to duplicate communicator for (%d,%d)\n", i, j);
+ MTestPrintError(err);
+ }
+ }
+ }
+ for (j = 0; j < 200; j++) {
+ err = MPI_Comm_free(&newcomm2[j]);
+ if (err) {
+ errs++;
+ if (errs < 10) {
+ fprintf(stderr, "Failed to free %d,%d\n", i, j);
+ MTestPrintError(err);
+ }
+ }
+ }