root/orte/test/mpi/bad_exit.c

DEFINITIONS

1. main

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <unistd.h>
   4 #include <mpi.h>
   5 
   6 #define RANK_DEATH 1
   7 
   8 int main(int argc, char **argv)
   9 {
  10    int rank;
  11    MPI_Init(&argc,&argv);
  12    MPI_Comm_rank(MPI_COMM_WORLD,&rank);
  13 
  14    sleep(2);
  15    if (rank==RANK_DEATH) {
  16        printf("Rank %d exiting without calling finalize...\n", rank);
  17        exit(1);
  18    }
  19    sleep(2);
  20    printf("Rank %d calling MPI_Finalize\n", rank);
  21    MPI_Finalize();
  22    printf("Rank %d exiting\n", rank);
  23    return 0;
  24 }
  25