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
|
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
#include "mpi.h"
#include <stdio.h>
/* FIXME: This test program assumes that MPI_Error_string will work even
if MPI is not initialized. That is not guaranteed. */
/* Normally, when checking for error returns from MPI calls, you must ensure
that the error handler on the relevant object (communicator, file, or
window) has been set to MPI_ERRORS_RETURN. The tests in this
program are a special case, as either a failure or an abort will
indicate a problem */
int main(int argc, char *argv[])
{
int error;
int flag;
char err_string[1024];
int length = 1024;
int rank;
flag = 0;
error = MPI_Finalized(&flag);
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Finalized failed: %s\n", err_string);
fflush(stdout);
return error;
}
if (flag) {
printf("MPI_Finalized returned true before MPI_Init.\n");
return -1;
}
error = MPI_Init(&argc, &argv);
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Init failed: %s\n", err_string);
fflush(stdout);
return error;
}
error = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Comm_rank failed: %s\n", err_string);
fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, error);
return error;
}
flag = 0;
error = MPI_Finalized(&flag);
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Finalized failed: %s\n", err_string);
fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, error);
return error;
}
if (flag) {
printf("MPI_Finalized returned true before MPI_Finalize.\n");
fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, error);
return -1;
}
error = MPI_Barrier(MPI_COMM_WORLD);
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Barrier failed: %s\n", err_string);
fflush(stdout);
MPI_Abort(MPI_COMM_WORLD, error);
return error;
}
error = MPI_Finalize();
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Finalize failed: %s\n", err_string);
fflush(stdout);
return error;
}
flag = 0;
error = MPI_Finalized(&flag);
if (error != MPI_SUCCESS) {
MPI_Error_string(error, err_string, &length);
printf("MPI_Finalized failed: %s\n", err_string);
fflush(stdout);
return error;
}
if (!flag) {
printf("MPI_Finalized returned false after MPI_Finalize.\n");
return -1;
}
if (rank == 0) {
printf(" No Errors\n");
}
return 0;
}
|
