+/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
+/*
+ * (C) 2003 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;
+}