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
|
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
*
* (C) 2001 by Argonne National Laboratory.
* See COPYRIGHT in top-level directory.
*/
#ifndef MPITEST_H_INCLUDED
#define MPITEST_H_INCLUDED
#include <string.h>
#include "mpitestconf.h"
/*
* Init and finalize test
*/
void MTest_Init(int *, char ***);
void MTest_Init_thread(int *, char ***, int, int *);
void MTest_Finalize(int);
void MTestPrintError(int);
void MTestPrintErrorMsg(const char[], int);
void MTestPrintfMsg(int, const char[], ...);
void MTestError(const char[]);
int MTestReturnValue(int);
/*
* Utilities
*/
void MTestSleep(int);
void MTestGetDbgInfo(int *dbgflag, int *verbose);
/*
* This structure contains the information used to test datatypes
* buf is set to null when an MTestDatatype is created; the
* InitBuf routine will allocate (if necessary) and initialize
* the data. InitBuf may be called multiple times (this is particularly
* important for recv bufs), in which case the buffer will only
* be allocated if it has not already been created.
*/
typedef struct _MTestDatatype {
MPI_Datatype datatype;
void *buf; /* buffer to use in communication */
MPI_Aint count; /* count to use for this datatype */
int isBasic; /* true if the type is predefined */
int printErrors; /* true if errors should be printed
* (used by the CheckBuf routines) */
/* The following is optional data that is used by some of
* the derived datatypes */
int nblock, *index;
/* stride, and blksize are in bytes */
MPI_Aint stride, blksize, *displ_in_bytes;
int *displs, basesize;
MPI_Datatype *old_datatypes;
/* used in subarray */
int arr_sizes[2], arr_subsizes[2], arr_starts[2], order;
void *(*InitBuf) (struct _MTestDatatype *);
void *(*FreeBuf) (struct _MTestDatatype *);
int (*CheckBuf) (struct _MTestDatatype *);
} MTestDatatype;
/* The max value of count must be very large to ensure that we
* reach the long message algorithms. (The maximal count or block length
* can be generated by 256K count is 4K or 32Kbytes respectively) */
#define MTEST_DATATYPE_FOR_EACH_COUNT(count) \
for (count = 1; count <= 262144; count *= 8)
/* Setup the full version of datatype tests.
* It generate tests for all basic datatypes and all derived datatypes except darray. */
void MTestInitFullDatatypes(void);
/* Setup the minimum version of datatype tests.
* It generate tests for all basic datatypes, vector and indexed. */
void MTestInitMinDatatypes(void);
/* Setup the basic version of datatype tests.
* It generate tests for all basic datatypes. */
void MTestInitBasicDatatypes(void);
int MTestCheckRecv(MPI_Status *, MTestDatatype *);
int MTestGetDatatypes(MTestDatatype *, MTestDatatype *, MPI_Aint);
void MTestResetDatatypes(void);
void MTestFreeDatatype(MTestDatatype *);
const char *MTestGetDatatypeName(MTestDatatype *);
int MTestGetDatatypeIndex(void);
int MTestGetIntracomm(MPI_Comm *, int);
int MTestGetIntracommGeneral(MPI_Comm *, int, int);
int MTestGetIntercomm(MPI_Comm *, int *, int);
int MTestGetComm(MPI_Comm *, int);
int MTestTestIntercomm(MPI_Comm intercomm);
int MTestTestIntracomm(MPI_Comm intracomm);
int MTestTestComm(MPI_Comm comm);
const char *MTestGetIntracommName(void);
const char *MTestGetIntercommName(void);
void MTestFreeComm(MPI_Comm *);
int MTestSpawnPossible(int *);
#ifdef HAVE_MPI_WIN_CREATE
int MTestGetWin(MPI_Win *, int);
const char *MTestGetWinName(void);
void MTestFreeWin(MPI_Win *);
#endif
/* These macros permit overrides via:
* make CPPFLAGS='-DMTEST_MPI_VERSION=X -DMTEST_MPI_SUBVERSION=Y'
* where X and Y are the major and minor versions of the MPI standard that is
* being tested. The override should work similarly if added to the CPPFLAGS at
* configure time. */
#ifndef MTEST_MPI_VERSION
#define MTEST_MPI_VERSION MPI_VERSION
#endif
#ifndef MTEST_MPI_SUBVERSION
#define MTEST_MPI_SUBVERSION MPI_SUBVERSION
#endif
/* Makes it easier to conditionally compile test code for a particular minimum
* version of the MPI Standard. Right now there is only a MIN flavor but it
* would be easy to add MAX or EXACT flavors if they become necessary at some
* point. Example usage:
------8<-------
#if MTEST_HAVE_MIN_MPI_VERSION(2,2)
... test for some feature that is only available in MPI-2.2 or later ...
#endif
------8<-------
*/
#define MTEST_HAVE_MIN_MPI_VERSION(major_,minor_) \
((MTEST_MPI_VERSION == (major_) && MTEST_MPI_SUBVERSION >= (minor_)) || \
(MTEST_MPI_VERSION > (major_)))
/* useful for avoid valgrind warnings about padding bytes */
#define MTEST_VG_MEM_INIT(addr_, size_) \
do { \
memset(addr_, 0, size_); \
} while (0)
#endif /* MPITEST_H_INCLUDED */
|
