- comm = MPI_COMM_WORLD;
- /* Create key values */
- for (i=0; i<3; i++) {
- MPI_Keyval_create( 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_Attr_put( comm, key[2], &attrval[2] );
- MPI_Attr_put( comm, key[1], &attrval[1] );
- MPI_Attr_put( comm, key[0], &attrval[0] );
-
- errs += checkAttrs( comm, 3, key, attrval );
-
- MPI_Attr_delete( comm, key[0] );
- MPI_Attr_delete( comm, key[1] );
- MPI_Attr_delete( comm, key[2] );
-
- errs += checkNoAttrs( comm, 3, key );
-
- MPI_Attr_put( comm, key[1], &attrval[1] );
- MPI_Attr_put( comm, key[2], &attrval[2] );
- MPI_Attr_put( comm, key[0], &attrval[0] );
-
- errs += checkAttrs( comm, 3, key, attrval );
-
- MPI_Attr_delete( comm, key[2] );
- MPI_Attr_delete( comm, key[1] );
- MPI_Attr_delete( comm, key[0] );
-
- errs += checkNoAttrs( comm, 3, key );
-
- MPI_Attr_put( comm, key[0], &attrval[0] );
- MPI_Attr_put( comm, key[1], &attrval[1] );
- MPI_Attr_put( comm, key[2], &attrval[2] );
-
- errs += checkAttrs( comm, 3, key, attrval );
-
- MPI_Attr_delete( comm, key[1] );
- MPI_Attr_delete( comm, key[2] );
- MPI_Attr_delete( comm, key[0] );
-
- errs += checkNoAttrs( comm, 3, key );
-
- for (i=0; i<3; i++) {
- MPI_Keyval_free( &key[i] );
- }
+ comm = MPI_COMM_WORLD;
+ /* Create key values */
+ for (i = 0; i < 3; i++) {
+ MPI_Keyval_create(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_Attr_put(comm, key[2], &attrval[2]);
+ MPI_Attr_put(comm, key[1], &attrval[1]);
+ MPI_Attr_put(comm, key[0], &attrval[0]);
+
+ errs += checkAttrs(comm, 3, key, attrval);
+
+ MPI_Attr_delete(comm, key[0]);
+ MPI_Attr_delete(comm, key[1]);
+ MPI_Attr_delete(comm, key[2]);
+
+ errs += checkNoAttrs(comm, 3, key);
+
+ MPI_Attr_put(comm, key[1], &attrval[1]);
+ MPI_Attr_put(comm, key[2], &attrval[2]);
+ MPI_Attr_put(comm, key[0], &attrval[0]);
+
+ errs += checkAttrs(comm, 3, key, attrval);
+
+ MPI_Attr_delete(comm, key[2]);
+ MPI_Attr_delete(comm, key[1]);
+ MPI_Attr_delete(comm, key[0]);
+
+ errs += checkNoAttrs(comm, 3, key);
+
+ MPI_Attr_put(comm, key[0], &attrval[0]);
+ MPI_Attr_put(comm, key[1], &attrval[1]);
+ MPI_Attr_put(comm, key[2], &attrval[2]);
+
+ errs += checkAttrs(comm, 3, key, attrval);
+
+ MPI_Attr_delete(comm, key[1]);
+ MPI_Attr_delete(comm, key[2]);
+ MPI_Attr_delete(comm, key[0]);
+
+ errs += checkNoAttrs(comm, 3, key);
+
+ for (i = 0; i < 3; i++) {
+ MPI_Keyval_free(&key[i]);
+ }