- then delete, then confirm delete with get. */
-
- MPI_Comm_set_attr( comm, key[3], &attrval[3] ); keyorder[0] = 3;
- MPI_Comm_set_attr( comm, key[2], &attrval[2] ); keyorder[1] = 2;
- MPI_Comm_set_attr( comm, key[0], &attrval[0] ); keyorder[2] = 0;
- MPI_Comm_set_attr( comm, key[1], &attrval[1] ); keyorder[3] = 1;
- MPI_Comm_set_attr( comm, key[4], &attrval[4] ); keyorder[4] = 4;
-
- errs += checkAttrs( comm, NKEYS, key, attrval );
-
- for (i=0; i<NKEYS; i++) {
- /* Save the key value so that we can compare it in the
- delete function */
- int keyval = key[i];
- MPI_Comm_free_keyval( &keyval );
+ * then delete, then confirm delete with get. */
+
+ MPI_Comm_set_attr(comm, key[3], &attrval[3]);
+ keyorder[0] = 3;
+ MPI_Comm_set_attr(comm, key[2], &attrval[2]);
+ keyorder[1] = 2;
+ MPI_Comm_set_attr(comm, key[0], &attrval[0]);
+ keyorder[2] = 0;
+ MPI_Comm_set_attr(comm, key[1], &attrval[1]);
+ keyorder[3] = 1;
+ MPI_Comm_set_attr(comm, key[4], &attrval[4]);
+ keyorder[4] = 4;
+
+ errs += checkAttrs(comm, NKEYS, key, attrval);
+
+ for (i = 0; i < NKEYS; i++) {
+ /* Save the key value so that we can compare it in the
+ * delete function */
+ int keyval = key[i];
+ MPI_Comm_free_keyval(&keyval);