different orders to ensure that the list management code handles all cases.";
*/
-int checkAttrs( MPI_Comm comm, int n, int key[], int attrval[] );
-int checkNoAttrs( MPI_Comm comm, int n, int key[] );
+int checkAttrs(MPI_Comm comm, int n, int key[], int attrval[]);
+int checkNoAttrs(MPI_Comm comm, 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_Comm comm;
- MTest_Init( &argc, &argv );
+ MTest_Init(&argc, &argv);
{
- comm = MPI_COMM_WORLD;
- /* Create key values */
- for (i=0; i<3; i++) {
- MPI_Comm_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_Comm_set_attr( comm, key[2], &attrval[2] );
- MPI_Comm_set_attr( comm, key[1], &attrval[1] );
- MPI_Comm_set_attr( comm, key[0], &attrval[0] );
-
- errs += checkAttrs( comm, 3, key, attrval );
-
- MPI_Comm_delete_attr( comm, key[0] );
- MPI_Comm_delete_attr( comm, key[1] );
- MPI_Comm_delete_attr( comm, key[2] );
-
- errs += checkNoAttrs( comm, 3, key );
-
- MPI_Comm_set_attr( comm, key[1], &attrval[1] );
- MPI_Comm_set_attr( comm, key[2], &attrval[2] );
- MPI_Comm_set_attr( comm, key[0], &attrval[0] );
-
- errs += checkAttrs( comm, 3, key, attrval );
-
- MPI_Comm_delete_attr( comm, key[2] );
- MPI_Comm_delete_attr( comm, key[1] );
- MPI_Comm_delete_attr( comm, key[0] );
-
- errs += checkNoAttrs( comm, 3, key );
-
- MPI_Comm_set_attr( comm, key[0], &attrval[0] );
- MPI_Comm_set_attr( comm, key[1], &attrval[1] );
- MPI_Comm_set_attr( comm, key[2], &attrval[2] );
-
- errs += checkAttrs( comm, 3, key, attrval );
-
- MPI_Comm_delete_attr( comm, key[1] );
- MPI_Comm_delete_attr( comm, key[2] );
- MPI_Comm_delete_attr( comm, key[0] );
-
- errs += checkNoAttrs( comm, 3, key );
-
- for (i=0; i<3; i++) {
- MPI_Comm_free_keyval( &key[i] );
- }
+ comm = MPI_COMM_WORLD;
+ /* Create key values */
+ for (i = 0; i < 3; i++) {
+ MPI_Comm_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_Comm_set_attr(comm, key[2], &attrval[2]);
+ MPI_Comm_set_attr(comm, key[1], &attrval[1]);
+ MPI_Comm_set_attr(comm, key[0], &attrval[0]);
+
+ errs += checkAttrs(comm, 3, key, attrval);
+
+ MPI_Comm_delete_attr(comm, key[0]);
+ MPI_Comm_delete_attr(comm, key[1]);
+ MPI_Comm_delete_attr(comm, key[2]);
+
+ errs += checkNoAttrs(comm, 3, key);
+
+ MPI_Comm_set_attr(comm, key[1], &attrval[1]);
+ MPI_Comm_set_attr(comm, key[2], &attrval[2]);
+ MPI_Comm_set_attr(comm, key[0], &attrval[0]);
+
+ errs += checkAttrs(comm, 3, key, attrval);
+
+ MPI_Comm_delete_attr(comm, key[2]);
+ MPI_Comm_delete_attr(comm, key[1]);
+ MPI_Comm_delete_attr(comm, key[0]);
+
+ errs += checkNoAttrs(comm, 3, key);
+
+ MPI_Comm_set_attr(comm, key[0], &attrval[0]);
+ MPI_Comm_set_attr(comm, key[1], &attrval[1]);
+ MPI_Comm_set_attr(comm, key[2], &attrval[2]);
+
+ errs += checkAttrs(comm, 3, key, attrval);
+
+ MPI_Comm_delete_attr(comm, key[1]);
+ MPI_Comm_delete_attr(comm, key[2]);
+ MPI_Comm_delete_attr(comm, key[0]);
+
+ errs += checkNoAttrs(comm, 3, key);
+
+ for (i = 0; i < 3; i++) {
+ MPI_Comm_free_keyval(&key[i]);
+ }
}
-
- MTest_Finalize( errs );
+
+ MTest_Finalize(errs);
MPI_Finalize();
return 0;
-
+
}
-int checkAttrs( MPI_Comm comm, int n, int key[], int attrval[] )
+int checkAttrs(MPI_Comm comm, int n, int key[], int attrval[])
{
int errs = 0;
int i, flag, *val_p;
- for (i=0; i<n; i++) {
- MPI_Comm_get_attr( comm, 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_Comm_get_attr(comm, 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_Comm comm, int n, int key[] )
+int checkNoAttrs(MPI_Comm comm, int n, int key[])
{
int errs = 0;
int i, flag, *val_p;
- for (i=0; i<n; i++) {
- MPI_Comm_get_attr( comm, 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_Comm_get_attr(comm, key[i], &val_p, &flag);
+ if (flag) {
+ errs++;
+ fprintf(stderr, "Attribute for key %d set but should be deleted\n", i);
+ }
}
return errs;
}
-
