1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
|
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
#include "mpi.h"
#include "mpitest.h"
#include <stdio.h>
#include <string.h>
/* Create an array with all of the MPI names in it */
typedef struct mpi_names_t {
MPI_Datatype dtype;
const char *name;
} mpi_names_t;
/* The MPI standard specifies that the names must be the MPI names,
not the related language names (e.g., MPI_CHAR, not char) */
static mpi_names_t mpi_names[] = {
{MPI_CHAR, "MPI_CHAR"},
{MPI_SIGNED_CHAR, "MPI_SIGNED_CHAR"},
{MPI_UNSIGNED_CHAR, "MPI_UNSIGNED_CHAR"},
{MPI_BYTE, "MPI_BYTE"},
{MPI_WCHAR, "MPI_WCHAR"},
{MPI_SHORT, "MPI_SHORT"},
{MPI_UNSIGNED_SHORT, "MPI_UNSIGNED_SHORT"},
{MPI_INT, "MPI_INT"},
{MPI_UNSIGNED, "MPI_UNSIGNED"},
{MPI_LONG, "MPI_LONG"},
{MPI_UNSIGNED_LONG, "MPI_UNSIGNED_LONG"},
{MPI_FLOAT, "MPI_FLOAT"},
{MPI_DOUBLE, "MPI_DOUBLE"},
#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
/* these two types were added in MPI-2.2 */
{MPI_AINT, "MPI_AINT"},
{MPI_OFFSET, "MPI_OFFSET"},
#endif
{MPI_PACKED, "MPI_PACKED"},
{MPI_FLOAT_INT, "MPI_FLOAT_INT"},
{MPI_DOUBLE_INT, "MPI_DOUBLE_INT"},
{MPI_LONG_INT, "MPI_LONG_INT"},
{MPI_SHORT_INT, "MPI_SHORT_INT"},
{MPI_2INT, "MPI_2INT"},
/* Fortran */
#ifdef HAVE_FORTRAN_BINDING
{MPI_COMPLEX, "MPI_COMPLEX"},
{MPI_DOUBLE_COMPLEX, "MPI_DOUBLE_COMPLEX"},
{MPI_LOGICAL, "MPI_LOGICAL"},
{MPI_REAL, "MPI_REAL"},
{MPI_DOUBLE_PRECISION, "MPI_DOUBLE_PRECISION"},
{MPI_INTEGER, "MPI_INTEGER"},
{MPI_2INTEGER, "MPI_2INTEGER"},
{MPI_2REAL, "MPI_2REAL"},
{MPI_2DOUBLE_PRECISION, "MPI_2DOUBLE_PRECISION"},
{MPI_CHARACTER, "MPI_CHARACTER"},
#endif
#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
/* these C99 types were added in MPI-2.2 */
{MPI_INT8_T, "MPI_INT8_T"},
{MPI_INT16_T, "MPI_INT16_T"},
{MPI_INT32_T, "MPI_INT32_T"},
{MPI_INT64_T, "MPI_INT64_T"},
{MPI_UINT8_T, "MPI_UINT8_T"},
{MPI_UINT16_T, "MPI_UINT16_T"},
{MPI_UINT32_T, "MPI_UINT32_T"},
{MPI_UINT64_T, "MPI_UINT64_T"},
{MPI_C_BOOL, "MPI_C_BOOL"},
{MPI_C_COMPLEX, "MPI_C_COMPLEX"},
{MPI_C_FLOAT_COMPLEX, "MPI_C_FLOAT_COMPLEX"},
{MPI_C_DOUBLE_COMPLEX, "MPI_C_DOUBLE_COMPLEX"},
{MPI_AINT, "MPI_AINT"},
{MPI_OFFSET, "MPI_OFFSET"},
#endif
/* Size-specific types */
/* Do not move MPI_REAL4 - this is used to indicate the very first
* optional type. In addition, you must not add any required types
* after this type */
/* See MPI 2.1, Section 16.2. These are required, predefined types.
* If the type is not available (e.g., *only* because the Fortran
* compiler does not support it), the value may be MPI_DATATYPE_NULL */
{MPI_REAL4, "MPI_REAL4"},
{MPI_REAL8, "MPI_REAL8"},
{MPI_REAL16, "MPI_REAL16"},
{MPI_COMPLEX8, "MPI_COMPLEX8"},
{MPI_COMPLEX16, "MPI_COMPLEX16"},
{MPI_COMPLEX32, "MPI_COMPLEX32"},
{MPI_INTEGER1, "MPI_INTEGER1"},
{MPI_INTEGER2, "MPI_INTEGER2"},
{MPI_INTEGER4, "MPI_INTEGER4"},
{MPI_INTEGER8, "MPI_INTEGER8"},
#ifdef HAVE_MPI_INTEGER16
/* MPI_INTEGER16 is not included in most of the tables in MPI 2.1,
* and some implementations omit it. An error will be reported, but
* this ifdef allows the test to be built and run. */
{MPI_INTEGER16, "MPI_INTEGER16"},
#endif
/* C++ types */
{MPI_CXX_BOOL, "MPI_CXX_BOOL"},
{MPI_CXX_FLOAT_COMPLEX, "MPI_CXX_FLOAT_COMPLEX"},
{MPI_CXX_DOUBLE_COMPLEX, "MPI_CXX_DOUBLE_COMPLEX"},
{MPI_CXX_LONG_DOUBLE_COMPLEX, "MPI_CXX_LONG_DOUBLE_COMPLEX"},
/* Semi-optional types - if the compiler doesn't support long double
* or long long, these might be MPI_DATATYPE_NULL */
{MPI_LONG_DOUBLE, "MPI_LONG_DOUBLE"},
{MPI_LONG_LONG_INT, "MPI_LONG_LONG_INT"},
{MPI_LONG_LONG, "MPI_LONG_LONG"},
{MPI_UNSIGNED_LONG_LONG, "MPI_UNSIGNED_LONG_LONG"},
{MPI_LONG_DOUBLE_INT, "MPI_LONG_DOUBLE_INT"},
#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
/* added in MPI-2.2 */
{MPI_C_LONG_DOUBLE_COMPLEX, "MPI_C_LONG_DOUBLE_COMPLEX"},
{MPI_AINT, "MPI_AINT"},
{MPI_OFFSET, "MPI_OFFSET"},
#endif
#if MTEST_HAVE_MIN_MPI_VERSION(3,0)
/* added in MPI 3 */
{MPI_COUNT, "MPI_COUNT"},
#endif
{0, (char *) 0}, /* Sentinel used to indicate the last element */
};
int main(int argc, char **argv)
{
char name[MPI_MAX_OBJECT_NAME];
int namelen, i, inOptional, isSynonymName;
int errs = 0;
MTest_Init(&argc, &argv);
/* Sample some datatypes */
/* See 8.4, "Naming Objects" in MPI-2. The default name is the same
* as the datatype name */
MPI_Type_get_name(MPI_DOUBLE, name, &namelen);
if (strncmp(name, "MPI_DOUBLE", MPI_MAX_OBJECT_NAME)) {
errs++;
fprintf(stderr, "Expected MPI_DOUBLE but got :%s:, namelen %d\n", name, namelen);
}
MPI_Type_get_name(MPI_INT, name, &namelen);
if (strncmp(name, "MPI_INT", MPI_MAX_OBJECT_NAME)) {
errs++;
fprintf(stderr, "Expected MPI_INT but got :%s:, namelen %d\n", name, namelen);
}
/* Now we try them ALL */
inOptional = 0;
isSynonymName = 0;
for (i = 0; mpi_names[i].name != 0; i++) {
/* Are we in the optional types? */
if (strcmp(mpi_names[i].name, "MPI_REAL4") == 0)
inOptional = 1;
/* If this optional type is not supported, skip it */
if (inOptional && mpi_names[i].dtype == MPI_DATATYPE_NULL)
continue;
if (mpi_names[i].dtype == MPI_DATATYPE_NULL) {
/* Report an error because all of the standard types
* must be supported */
errs++;
fprintf(stderr, "MPI Datatype %s is MPI_DATATYPE_NULL\n", mpi_names[i].name);
continue;
}
MTestPrintfMsg(10, "Checking type %s\n", mpi_names[i].name);
name[0] = 0;
MPI_Type_get_name(mpi_names[i].dtype, name, &namelen);
/* LONG_LONG is a synonym of LONG_LONG_INT, thus LONG_LONG_INT is a valid name */
isSynonymName = (mpi_names[i].dtype == MPI_LONG_LONG &&
!strncmp(name, "MPI_LONG_LONG_INT", MPI_MAX_OBJECT_NAME));
#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
/* C_FLOAT_COMPLEX is a synonym of C_COMPLEX, thus C_COMPLEX is a valid name */
isSynonymName = isSynonymName || (mpi_names[i].dtype == MPI_C_FLOAT_COMPLEX &&
!strncmp(name, "MPI_C_COMPLEX", MPI_MAX_OBJECT_NAME));
#endif
if (strncmp(name, mpi_names[i].name, MPI_MAX_OBJECT_NAME) && !isSynonymName) {
errs++;
fprintf(stderr, "Expected %s but got :%s:, namelen %d\n", mpi_names[i].name, name,
namelen);
}
}
/* Try resetting the name */
MPI_Type_set_name(MPI_INT, (char *) "int");
name[0] = 0;
MPI_Type_get_name(MPI_INT, name, &namelen);
if (strncmp(name, "int", MPI_MAX_OBJECT_NAME)) {
errs++;
fprintf(stderr, "Expected int but got :%s:, namelen %d\n", name, namelen);
}
#ifndef HAVE_MPI_INTEGER16
errs++;
fprintf(stderr, "MPI_INTEGER16 is not available\n");
#endif
MTest_Finalize(errs);
return MTestReturnValue(errs);
}
|
