1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2001 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
12 static char MTestDescrip[] = "Test creating and inserting attributes in \
13 different orders to ensure that the list management code handles all cases.";
16 int checkAttrs(MPI_Comm comm, int n, int key[], int attrval[]);
17 int checkNoAttrs(MPI_Comm comm, int n, int key[]);
19 int main(int argc, char *argv[])
22 int key[3], attrval[3];
26 MTest_Init(&argc, &argv);
29 comm = MPI_COMM_WORLD;
30 /* Create key values */
31 for (i = 0; i < 3; i++) {
32 MPI_Keyval_create(MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, &key[i], (void *) 0);
33 attrval[i] = 1024 * i;
36 /* Insert attribute in several orders. Test after put with get,
37 * then delete, then confirm delete with get. */
39 MPI_Attr_put(comm, key[2], &attrval[2]);
40 MPI_Attr_put(comm, key[1], &attrval[1]);
41 MPI_Attr_put(comm, key[0], &attrval[0]);
43 errs += checkAttrs(comm, 3, key, attrval);
45 MPI_Attr_delete(comm, key[0]);
46 MPI_Attr_delete(comm, key[1]);
47 MPI_Attr_delete(comm, key[2]);
49 errs += checkNoAttrs(comm, 3, key);
51 MPI_Attr_put(comm, key[1], &attrval[1]);
52 MPI_Attr_put(comm, key[2], &attrval[2]);
53 MPI_Attr_put(comm, key[0], &attrval[0]);
55 errs += checkAttrs(comm, 3, key, attrval);
57 MPI_Attr_delete(comm, key[2]);
58 MPI_Attr_delete(comm, key[1]);
59 MPI_Attr_delete(comm, key[0]);
61 errs += checkNoAttrs(comm, 3, key);
63 MPI_Attr_put(comm, key[0], &attrval[0]);
64 MPI_Attr_put(comm, key[1], &attrval[1]);
65 MPI_Attr_put(comm, key[2], &attrval[2]);
67 errs += checkAttrs(comm, 3, key, attrval);
69 MPI_Attr_delete(comm, key[1]);
70 MPI_Attr_delete(comm, key[2]);
71 MPI_Attr_delete(comm, key[0]);
73 errs += checkNoAttrs(comm, 3, key);
75 for (i = 0; i < 3; i++) {
76 MPI_Keyval_free(&key[i]);
86 int checkAttrs(MPI_Comm comm, int n, int key[], int attrval[])
91 for (i = 0; i < n; i++) {
92 MPI_Attr_get(comm, key[i], &val_p, &flag);
95 fprintf(stderr, "Attribute for key %d not set\n", i);
97 else if (val_p != &attrval[i]) {
99 fprintf(stderr, "Atribute value for key %d not correct\n", i);
106 int checkNoAttrs(MPI_Comm comm, int n, int key[])
111 for (i = 0; i < n; i++) {
112 MPI_Attr_get(comm, key[i], &val_p, &flag);
115 fprintf(stderr, "Attribute for key %d set but should be deleted\n", i);