- 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]);
+ }