#endif
#include "mpi.h"
-static int verbose = 0;
-
+int main(int argc, char *argv[]);
int parse_args(int argc, char **argv);
int main(int argc, char *argv[])
{
int i, err, errs = 0, rank, toterrs;
- int index;
+ int index;
MPI_Request requests[10];
- MPI_Status statuses[10];
+ MPI_Status statuses[10];
MPI_Init(&argc, &argv);
parse_args(argc, argv);
- for (i=0; i < 10; i++) {
- requests[i] = MPI_REQUEST_NULL;
+ for (i = 0; i < 10; i++) {
+ requests[i] = MPI_REQUEST_NULL;
}
/* begin testing */
/* To improve reporting of problems about operations, we
- change the error handler to errors return */
- MPI_Comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN );
+ * change the error handler to errors return */
+ MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
err = MPI_Waitany(10, requests, &index, statuses);
if (err != MPI_SUCCESS) {
- errs++;
- fprintf(stderr, "MPI_Waitany did not return MPI_SUCCESS\n");
+ errs++;
+ fprintf(stderr, "MPI_Waitany did not return MPI_SUCCESS\n");
}
if (index != MPI_UNDEFINED) {
- errs++;
- fprintf(stderr, "MPI_Waitany did not set index to MPI_UNDEFINED\n");
+ errs++;
+ fprintf(stderr, "MPI_Waitany did not set index to MPI_UNDEFINED\n");
}
/* end testing */
-
- MPI_Comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL );
- MPI_Comm_rank( MPI_COMM_WORLD, & rank );
- MPI_Allreduce( &errs, &toterrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD );
+
+ MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
+ MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+ MPI_Allreduce(&errs, &toterrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD);
if (rank == 0) {
- if (toterrs) {
- fprintf(stderr, " Found %d errors\n", toterrs);
- }
- else {
- printf(" No Errors\n");
- }
+ if (toterrs) {
+ fprintf(stderr, " Found %d errors\n", toterrs);
+ }
+ else {
+ printf(" No Errors\n");
+ }
}
MPI_Finalize();
return 0;
int parse_args(int argc, char **argv)
{
/*
- int ret;
-
- while ((ret = getopt(argc, argv, "v")) >= 0)
- {
- switch (ret) {
- case 'v':
- verbose = 1;
- break;
- }
- }
- */
- if (argc > 1 && strcmp(argv[1], "-v") == 0)
- verbose = 1;
+ * int ret;
+ *
+ * while ((ret = getopt(argc, argv, "v")) >= 0)
+ * {
+ * switch (ret) {
+ * case 'v':
+ * verbose = 1; <-- never used, thus removed
+ * break;
+ * }
+ * }
+ */
return 0;
}