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)10int 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