X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/5b709bba3e8d25836dd1808aab2b3ef414f8329e..839ca861fcbfe4230637ffc30766445cc7b4918f:/teshsuite/smpi/mpich3-test/attr/attrordertype.c

diff --git a/teshsuite/smpi/mpich3-test/attr/attrordertype.c b/teshsuite/smpi/mpich3-test/attr/attrordertype.c
index 25cf1d94b6..d3de828c33 100644
--- a/teshsuite/smpi/mpich3-test/attr/attrordertype.c
+++ b/teshsuite/smpi/mpich3-test/attr/attrordertype.c
@@ -13,111 +13,108 @@ static char MTestDescrip[] = "Test creating and inserting attributes in \
 different orders to ensure that the list management code handles all cases.";
 */
 
-int checkAttrs( MPI_Datatype type, int n, int key[], int attrval[] );
-int checkNoAttrs( MPI_Datatype type, int n, int key[] );
+int checkAttrs(MPI_Datatype type, int n, int key[], int attrval[]);
+int checkNoAttrs(MPI_Datatype type, int n, int key[]);
 
-int main( int argc, char *argv[] )
+int main(int argc, char *argv[])
 {
     int errs = 0;
     int key[3], attrval[3];
     int i;
     MPI_Datatype type;
 
-    MTest_Init( &argc, &argv );
+    MTest_Init(&argc, &argv);
 
     {
-	type = MPI_INT;
-	/* Create key values */
-	for (i=0; i<3; i++) {
-	    MPI_Type_create_keyval( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN,
-			       &key[i], (void *)0 );
-	    attrval[i] = 1024 * i;
-	}
-	
-	/* Insert attribute in several orders.  Test after put with get,
-	 then delete, then confirm delete with get. */
-
-	MPI_Type_set_attr( type, key[2], &attrval[2] );
-	MPI_Type_set_attr( type, key[1], &attrval[1] );
-	MPI_Type_set_attr( type, key[0], &attrval[0] );
-
-	errs += checkAttrs( type, 3, key, attrval );
-	
-	MPI_Type_delete_attr( type, key[0] );
-	MPI_Type_delete_attr( type, key[1] );
-	MPI_Type_delete_attr( type, key[2] );
-
-	errs += checkNoAttrs( type, 3, key );
-	
-	MPI_Type_set_attr( type, key[1], &attrval[1] );
-	MPI_Type_set_attr( type, key[2], &attrval[2] );
-	MPI_Type_set_attr( type, key[0], &attrval[0] );
-
-	errs += checkAttrs( type, 3, key, attrval );
-	
-	MPI_Type_delete_attr( type, key[2] );
-	MPI_Type_delete_attr( type, key[1] );
-	MPI_Type_delete_attr( type, key[0] );
-
-	errs += checkNoAttrs( type, 3, key );
-
-	MPI_Type_set_attr( type, key[0], &attrval[0] );
-	MPI_Type_set_attr( type, key[1], &attrval[1] );
-	MPI_Type_set_attr( type, key[2], &attrval[2] );
-
-	errs += checkAttrs( type, 3, key, attrval );
-	
-	MPI_Type_delete_attr( type, key[1] );
-	MPI_Type_delete_attr( type, key[2] );
-	MPI_Type_delete_attr( type, key[0] );
-
-	errs += checkNoAttrs( type, 3, key );
-	
-	for (i=0; i<3; i++) {
-	    MPI_Type_free_keyval( &key[i] );
-	}
+        type = MPI_INT;
+        /* Create key values */
+        for (i = 0; i < 3; i++) {
+            MPI_Type_create_keyval(MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, &key[i], (void *) 0);
+            attrval[i] = 1024 * i;
+        }
+
+        /* Insert attribute in several orders.  Test after put with get,
+         * then delete, then confirm delete with get. */
+
+        MPI_Type_set_attr(type, key[2], &attrval[2]);
+        MPI_Type_set_attr(type, key[1], &attrval[1]);
+        MPI_Type_set_attr(type, key[0], &attrval[0]);
+
+        errs += checkAttrs(type, 3, key, attrval);
+
+        MPI_Type_delete_attr(type, key[0]);
+        MPI_Type_delete_attr(type, key[1]);
+        MPI_Type_delete_attr(type, key[2]);
+
+        errs += checkNoAttrs(type, 3, key);
+
+        MPI_Type_set_attr(type, key[1], &attrval[1]);
+        MPI_Type_set_attr(type, key[2], &attrval[2]);
+        MPI_Type_set_attr(type, key[0], &attrval[0]);
+
+        errs += checkAttrs(type, 3, key, attrval);
+
+        MPI_Type_delete_attr(type, key[2]);
+        MPI_Type_delete_attr(type, key[1]);
+        MPI_Type_delete_attr(type, key[0]);
+
+        errs += checkNoAttrs(type, 3, key);
+
+        MPI_Type_set_attr(type, key[0], &attrval[0]);
+        MPI_Type_set_attr(type, key[1], &attrval[1]);
+        MPI_Type_set_attr(type, key[2], &attrval[2]);
+
+        errs += checkAttrs(type, 3, key, attrval);
+
+        MPI_Type_delete_attr(type, key[1]);
+        MPI_Type_delete_attr(type, key[2]);
+        MPI_Type_delete_attr(type, key[0]);
+
+        errs += checkNoAttrs(type, 3, key);
+
+        for (i = 0; i < 3; i++) {
+            MPI_Type_free_keyval(&key[i]);
+        }
     }
-    
-    MTest_Finalize( errs );
+
+    MTest_Finalize(errs);
     MPI_Finalize();
     return 0;
-  
+
 }
 
-int checkAttrs( MPI_Datatype type, int n, int key[], int attrval[] )
+int checkAttrs(MPI_Datatype type, int n, int key[], int attrval[])
 {
     int errs = 0;
     int i, flag, *val_p;
 
-    for (i=0; i<n; i++) {
-	MPI_Type_get_attr( type, key[i], &val_p, &flag );
-	if (!flag) {
-	    errs++;
-	    fprintf( stderr, "Attribute for key %d not set\n", i );
-	}
-	else if (val_p != &attrval[i]) {
-	    errs++;
-	    fprintf( stderr, "Attribute value for key %d not correct\n",
-		     i );
-	}
+    for (i = 0; i < n; i++) {
+        MPI_Type_get_attr(type, key[i], &val_p, &flag);
+        if (!flag) {
+            errs++;
+            fprintf(stderr, "Attribute for key %d not set\n", i);
+        }
+        else if (val_p != &attrval[i]) {
+            errs++;
+            fprintf(stderr, "Atribute value for key %d not correct\n", i);
+        }
     }
 
     return errs;
 }
 
-int checkNoAttrs( MPI_Datatype type, int n, int key[] )
+int checkNoAttrs(MPI_Datatype type, int n, int key[])
 {
     int errs = 0;
     int i, flag, *val_p;
 
-    for (i=0; i<n; i++) {
-	MPI_Type_get_attr( type, key[i], &val_p, &flag );
-	if (flag) {
-	    errs++;
-	    fprintf( stderr, "Attribute for key %d set but should be deleted\n", i );
-	}
+    for (i = 0; i < n; i++) {
+        MPI_Type_get_attr(type, key[i], &val_p, &flag);
+        if (flag) {
+            errs++;
+            fprintf(stderr, "Attribute for key %d set but should be deleted\n", i);
+        }
     }
 
     return errs;
 }
-