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_Win win, int n, int key[], int attrval[]);
17 int checkNoAttrs(MPI_Win win, int n, int key[]);
19 int main(int argc, char *argv[])
22 int key[3], attrval[3];
28 MTest_Init(&argc, &argv);
31 comm = MPI_COMM_WORLD;
32 MPI_Win_create(buf, sizeof(int), sizeof(int), MPI_INFO_NULL, comm, &win);
34 /* Create key values */
35 for (i = 0; i < 3; i++) {
36 MPI_Win_create_keyval(MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, &key[i], (void *) 0);
37 attrval[i] = 1024 * i;
40 /* Insert attribute in several orders. Test after put with get,
41 * then delete, then confirm delete with get. */
43 MPI_Win_set_attr(win, key[2], &attrval[2]);
44 MPI_Win_set_attr(win, key[1], &attrval[1]);
45 MPI_Win_set_attr(win, key[0], &attrval[0]);
47 errs += checkAttrs(win, 3, key, attrval);
49 MPI_Win_delete_attr(win, key[0]);
50 MPI_Win_delete_attr(win, key[1]);
51 MPI_Win_delete_attr(win, key[2]);
53 errs += checkNoAttrs(win, 3, key);
55 MPI_Win_set_attr(win, key[1], &attrval[1]);
56 MPI_Win_set_attr(win, key[2], &attrval[2]);
57 MPI_Win_set_attr(win, key[0], &attrval[0]);
59 errs += checkAttrs(win, 3, key, attrval);
61 MPI_Win_delete_attr(win, key[2]);
62 MPI_Win_delete_attr(win, key[1]);
63 MPI_Win_delete_attr(win, key[0]);
65 errs += checkNoAttrs(win, 3, key);
67 MPI_Win_set_attr(win, key[0], &attrval[0]);
68 MPI_Win_set_attr(win, key[1], &attrval[1]);
69 MPI_Win_set_attr(win, key[2], &attrval[2]);
71 errs += checkAttrs(win, 3, key, attrval);
73 MPI_Win_delete_attr(win, key[1]);
74 MPI_Win_delete_attr(win, key[2]);
75 MPI_Win_delete_attr(win, key[0]);
77 errs += checkNoAttrs(win, 3, key);
79 for (i = 0; i < 3; i++) {
80 MPI_Win_free_keyval(&key[i]);
91 int checkAttrs(MPI_Win win, int n, int key[], int attrval[])
96 for (i = 0; i < n; i++) {
97 MPI_Win_get_attr(win, key[i], &val_p, &flag);
100 fprintf(stderr, "Attribute for key %d not set\n", i);
102 else if (val_p != &attrval[i]) {
104 fprintf(stderr, "Atribute value for key %d not correct\n", i);
111 int checkNoAttrs(MPI_Win win, int n, int key[])
116 for (i = 0; i < n; i++) {
117 MPI_Win_get_attr(win, key[i], &val_p, &flag);
120 fprintf(stderr, "Attribute for key %d set but should be deleted\n", i);