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
|
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
#include "mpi.h"
#include "mpitestconf.h"
#ifdef HAVE_IOSTREAM
// Not all C++ compilers have iostream instead of iostream.h
#include <iostream>
#ifdef HAVE_NAMESPACE_STD
// Those that do often need the std namespace; otherwise, a bare "cout"
// is likely to fail to compile
using namespace std;
#endif
#else
#include <iostream.h>
#endif
#include <stdio.h>
#include "mpitestcxx.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif
int main(int argc, char **argv)
{
int errs = 0;
void *v;
bool flag;
int vval;
int rank, size;
MTest_Init();
size = MPI::COMM_WORLD.Get_size();
rank = MPI::COMM_WORLD.Get_rank();
flag = MPI::COMM_WORLD.Get_attr(MPI::TAG_UB, &v);
if (!flag) {
errs++;
cout << "Could not get TAG_UB\n";
} else {
vval = *(int *) v;
if (vval < 32767) {
errs++;
cout << "Got too-small value (" << vval << ") for TAG_UB\n";
}
}
flag = MPI::COMM_WORLD.Get_attr(MPI::HOST, &v);
if (!flag) {
errs++;
cout << "Could not get HOST\n";
} else {
vval = *(int *) v;
if ((vval < 0 || vval >= size) && vval != MPI::PROC_NULL) {
errs++;
cout << "Got invalid value " << vval << " for HOST\n";
}
}
flag = MPI::COMM_WORLD.Get_attr(MPI::IO, &v);
if (!flag) {
errs++;
cout << "Could not get IO\n";
} else {
vval = *(int *) v;
if ((vval < 0 || vval >= size) && vval != MPI::ANY_SOURCE && vval != MPI::PROC_NULL) {
errs++;
cout << "Got invalid value " << vval << " for IO\n";
}
}
flag = MPI::COMM_WORLD.Get_attr(MPI::WTIME_IS_GLOBAL, &v);
if (flag) {
/* Wtime need not be set */
vval = *(int *) v;
if (vval < 0 || vval > 1) {
errs++;
cout << "Invalid value for WTIME_IS_GLOBAL (got " << vval << ")\n";
}
}
flag = MPI::COMM_WORLD.Get_attr(MPI::APPNUM, &v);
/* appnum need not be set */
if (flag) {
vval = *(int *) v;
if (vval < 0) {
errs++;
cout << "MPI_APPNUM is defined as " << vval << " but must be nonnegative\n";
}
}
flag = MPI::COMM_WORLD.Get_attr(MPI::UNIVERSE_SIZE, &v);
/* MPI_UNIVERSE_SIZE need not be set */
if (flag) {
/* But if it is set, it must be at least the size of comm_world */
vval = *(int *) v;
if (vval < size) {
errs++;
cout << "MPI_UNIVERSE_SIZE = " << vval << ", less than comm world (" << size << ")\n";
}
}
flag = MPI::COMM_WORLD.Get_attr(MPI::LASTUSEDCODE, &v);
/* Last used code must be defined and >= MPI_ERR_LASTCODE */
if (flag) {
vval = *(int *) v;
if (vval < MPI_ERR_LASTCODE) {
errs++;
cout << "MPI_LASTUSEDCODE points to an integer (" << vval <<
") smaller than MPI_ERR_LASTCODE (" << MPI_ERR_LASTCODE << ")\n";
}
} else {
errs++;
cout << "MPI_LASTUSECODE is not defined\n";
}
MTest_Finalize(errs);
return 0;
}
|
