reduce some tests duration as comm_create takes longer now (comms)

[simgrid.git] / teshsuite / smpi / mpich3-test / comm / ctxalloc.c

diff --git a/teshsuite/smpi/mpich3-test/comm/ctxalloc.c b/teshsuite/smpi/mpich3-test/comm/ctxalloc.c
index ef66be3..39c8094 100644 (file)
--- a/teshsuite/smpi/mpich3-test/comm/ctxalloc.c
+++ b/teshsuite/smpi/mpich3-test/comm/ctxalloc.c
@@ -10,51 +10,51 @@
 
 /*
  * This program tests the allocation (and deallocation) of contexts.
- * 
+ *
  */
-int main( int argc, char **argv )
+int main(int argc, char **argv)
 {
     int errs = 0;
     int i, j, err;
     MPI_Comm newcomm1, newcomm2[200];
 
-    MTest_Init( &argc, &argv );
+    MTest_Init(&argc, &argv);
 
     /* Get a separate communicator to duplicate */
-    MPI_Comm_dup( MPI_COMM_WORLD, &newcomm1 );
+    MPI_Comm_dup(MPI_COMM_WORLD, &newcomm1);
 
-    MPI_Errhandler_set( newcomm1, MPI_ERRORS_RETURN );
+    MPI_Errhandler_set(newcomm1, MPI_ERRORS_RETURN);
     /* Allocate many communicators in batches, then free them */
-    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);
+                }
+            }
+        }
     }
-    err = MPI_Comm_free( &newcomm1 );
+    err = MPI_Comm_free(&newcomm1);
     if (err) {
-       errs++;
-       fprintf( stderr, "Failed to free newcomm1\n" );
-       MTestPrintError( err );
+        errs++;
+        fprintf(stderr, "Failed to free newcomm1\n");
+        MTestPrintError(err);
     }
-      
-    MTest_Finalize( errs );
+
+    MTest_Finalize(errs);
 
     MPI_Finalize();