/* 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
+/* 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
+ 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 main(int argc, char *argv[])
{
int error;
int flag;
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 (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;
+ 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;
+ 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;
+ 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 (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;
+ 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;
+ 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;
+ 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 (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 (!flag) {
+ printf("MPI_Finalized returned false after MPI_Finalize.\n");
+ return -1;
}
- if (rank == 0)
- {
- printf(" No Errors\n");
+ if (rank == 0) {
+ printf(" No Errors\n");
}
- return 0;
+ return 0;
}