1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2003 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
9 /* FIXME: This test program assumes that MPI_Error_string will work even
10 if MPI is not initialized. That is not guaranteed. */
12 /* Normally, when checking for error returns from MPI calls, you must ensure
13 that the error handler on the relevant object (communicator, file, or
14 window) has been set to MPI_ERRORS_RETURN. The tests in this
15 program are a special case, as either a failure or an abort will
18 int main(int argc, char *argv[])
22 char err_string[1024];
27 error = MPI_Finalized(&flag);
28 if (error != MPI_SUCCESS) {
29 MPI_Error_string(error, err_string, &length);
30 printf("MPI_Finalized failed: %s\n", err_string);
35 printf("MPI_Finalized returned true before MPI_Init.\n");
39 error = MPI_Init(&argc, &argv);
40 if (error != MPI_SUCCESS) {
41 MPI_Error_string(error, err_string, &length);
42 printf("MPI_Init failed: %s\n", err_string);
47 error = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
48 if (error != MPI_SUCCESS) {
49 MPI_Error_string(error, err_string, &length);
50 printf("MPI_Comm_rank failed: %s\n", err_string);
52 MPI_Abort(MPI_COMM_WORLD, error);
57 error = MPI_Finalized(&flag);
58 if (error != MPI_SUCCESS) {
59 MPI_Error_string(error, err_string, &length);
60 printf("MPI_Finalized failed: %s\n", err_string);
62 MPI_Abort(MPI_COMM_WORLD, error);
66 printf("MPI_Finalized returned true before MPI_Finalize.\n");
68 MPI_Abort(MPI_COMM_WORLD, error);
72 error = MPI_Barrier(MPI_COMM_WORLD);
73 if (error != MPI_SUCCESS) {
74 MPI_Error_string(error, err_string, &length);
75 printf("MPI_Barrier failed: %s\n", err_string);
77 MPI_Abort(MPI_COMM_WORLD, error);
81 error = MPI_Finalize();
82 if (error != MPI_SUCCESS) {
83 MPI_Error_string(error, err_string, &length);
84 printf("MPI_Finalize failed: %s\n", err_string);
90 error = MPI_Finalized(&flag);
91 if (error != MPI_SUCCESS) {
92 MPI_Error_string(error, err_string, &length);
93 printf("MPI_Finalized failed: %s\n", err_string);
98 printf("MPI_Finalized returned false after MPI_Finalize.\n");
102 printf(" No Errors\n");