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_Datatype type, int n, int key[], int attrval[]);
17 int checkNoAttrs(MPI_Datatype type, int n, int key[]);
19 int main(int argc, char *argv[])
22 int key[3], attrval[3];
26 MTest_Init(&argc, &argv);
30 /* Create key values */
31 for (i = 0; i < 3; i++) {
32 MPI_Type_create_keyval(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_Type_set_attr(type, key[2], &attrval[2]);
40 MPI_Type_set_attr(type, key[1], &attrval[1]);
41 MPI_Type_set_attr(type, key[0], &attrval[0]);
43 errs += checkAttrs(type, 3, key, attrval);
45 MPI_Type_delete_attr(type, key[0]);
46 MPI_Type_delete_attr(type, key[1]);
47 MPI_Type_delete_attr(type, key[2]);
49 errs += checkNoAttrs(type, 3, key);
51 MPI_Type_set_attr(type, key[1], &attrval[1]);
52 MPI_Type_set_attr(type, key[2], &attrval[2]);
53 MPI_Type_set_attr(type, key[0], &attrval[0]);
55 errs += checkAttrs(type, 3, key, attrval);
57 MPI_Type_delete_attr(type, key[2]);
58 MPI_Type_delete_attr(type, key[1]);
59 MPI_Type_delete_attr(type, key[0]);
61 errs += checkNoAttrs(type, 3, key);
63 MPI_Type_set_attr(type, key[0], &attrval[0]);
64 MPI_Type_set_attr(type, key[1], &attrval[1]);
65 MPI_Type_set_attr(type, key[2], &attrval[2]);
67 errs += checkAttrs(type, 3, key, attrval);
69 MPI_Type_delete_attr(type, key[1]);
70 MPI_Type_delete_attr(type, key[2]);
71 MPI_Type_delete_attr(type, key[0]);
73 errs += checkNoAttrs(type, 3, key);
75 for (i = 0; i < 3; i++) {
76 MPI_Type_free_keyval(&key[i]);
86 int checkAttrs(MPI_Datatype type, int n, int key[], int attrval[])
91 for (i = 0; i < n; i++) {
92 MPI_Type_get_attr(type, 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, "Attribute value for key %d not correct\n", i);
106 int checkNoAttrs(MPI_Datatype type, int n, int key[])
111 for (i = 0; i < n; i++) {
112 MPI_Type_get_attr(type, key[i], &val_p, &flag);
115 fprintf(stderr, "Attribute for key %d set but should be deleted\n", i);