1 /*
2  * Copyright (C) by Argonne National Laboratory
3  *     See COPYRIGHT in top-level directory
4  */
5 
6 #include <mpi.h>
7 #include <stdio.h>
8 #include <stdlib.h>
9 
main(int argc,char ** argv)10 int main(int argc, char **argv)
11 {
12     int rank, size;
13 
14     MPI_Init(&argc, &argv);
15     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
16 
17     if (rank == 1) {
18         exit(EXIT_FAILURE);
19     }
20 
21     if (rank == 0) {
22         printf(" No Errors\n");
23         fflush(stdout);
24     }
25 
26     MPI_Finalize();
27 
28     return 0;
29 }
30