- comm = MPI_COMM_WORLD;
- MPI_Win_create( buf, sizeof(int), sizeof(int), MPI_INFO_NULL,
- comm, &win );
-
- /* Create key values */
- for (i=0; i<3; i++) {
- MPI_Win_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_Win_set_attr( win, key[2], &attrval[2] );
- MPI_Win_set_attr( win, key[1], &attrval[1] );
- MPI_Win_set_attr( win, key[0], &attrval[0] );
-
- errs += checkAttrs( win, 3, key, attrval );
-
- MPI_Win_delete_attr( win, key[0] );
- MPI_Win_delete_attr( win, key[1] );
- MPI_Win_delete_attr( win, key[2] );
-
- errs += checkNoAttrs( win, 3, key );
-
- MPI_Win_set_attr( win, key[1], &attrval[1] );
- MPI_Win_set_attr( win, key[2], &attrval[2] );
- MPI_Win_set_attr( win, key[0], &attrval[0] );
-
- errs += checkAttrs( win, 3, key, attrval );
-
- MPI_Win_delete_attr( win, key[2] );
- MPI_Win_delete_attr( win, key[1] );
- MPI_Win_delete_attr( win, key[0] );
-
- errs += checkNoAttrs( win, 3, key );
-
- MPI_Win_set_attr( win, key[0], &attrval[0] );
- MPI_Win_set_attr( win, key[1], &attrval[1] );
- MPI_Win_set_attr( win, key[2], &attrval[2] );
-
- errs += checkAttrs( win, 3, key, attrval );
-
- MPI_Win_delete_attr( win, key[1] );
- MPI_Win_delete_attr( win, key[2] );
- MPI_Win_delete_attr( win, key[0] );
-
- errs += checkNoAttrs( win, 3, key );
-
- for (i=0; i<3; i++) {
- MPI_Win_free_keyval( &key[i] );
- }
- MPI_Win_free( &win );
+ comm = MPI_COMM_WORLD;
+ MPI_Win_create(buf, sizeof(int), sizeof(int), MPI_INFO_NULL, comm, &win);
+
+ /* Create key values */
+ for (i = 0; i < 3; i++) {
+ MPI_Win_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_Win_set_attr(win, key[2], &attrval[2]);
+ MPI_Win_set_attr(win, key[1], &attrval[1]);
+ MPI_Win_set_attr(win, key[0], &attrval[0]);
+
+ errs += checkAttrs(win, 3, key, attrval);
+
+ MPI_Win_delete_attr(win, key[0]);
+ MPI_Win_delete_attr(win, key[1]);
+ MPI_Win_delete_attr(win, key[2]);
+
+ errs += checkNoAttrs(win, 3, key);
+
+ MPI_Win_set_attr(win, key[1], &attrval[1]);
+ MPI_Win_set_attr(win, key[2], &attrval[2]);
+ MPI_Win_set_attr(win, key[0], &attrval[0]);
+
+ errs += checkAttrs(win, 3, key, attrval);
+
+ MPI_Win_delete_attr(win, key[2]);
+ MPI_Win_delete_attr(win, key[1]);
+ MPI_Win_delete_attr(win, key[0]);
+
+ errs += checkNoAttrs(win, 3, key);
+
+ MPI_Win_set_attr(win, key[0], &attrval[0]);
+ MPI_Win_set_attr(win, key[1], &attrval[1]);
+ MPI_Win_set_attr(win, key[2], &attrval[2]);
+
+ errs += checkAttrs(win, 3, key, attrval);
+
+ MPI_Win_delete_attr(win, key[1]);
+ MPI_Win_delete_attr(win, key[2]);
+ MPI_Win_delete_attr(win, key[0]);
+
+ errs += checkNoAttrs(win, 3, key);
+
+ for (i = 0; i < 3; i++) {
+ MPI_Win_free_keyval(&key[i]);
+ }
+ MPI_Win_free(&win);