teshsuite/smpi/mpich3-test/init/exitst3.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *  (C) 2001 by Argonne National Laboratory.
   4  *      See COPYRIGHT in top-level directory.
   5  */
   6 #include "mpi.h"
   7
   8 /*
   9  * This is a special test to check that mpiexec handles the death of
  10  * some processes without an Abort or clean exit
  11  */
  12 int main( int argc, char *argv[] )
  13 {
  14     int rank, size;
  15     MPI_Init( 0, 0 );
  16     MPI_Comm_rank( MPI_COMM_WORLD, &rank );
  17     MPI_Comm_size( MPI_COMM_WORLD, &size );
  18     MPI_Barrier( MPI_COMM_WORLD );
  19     if (rank == size-1) {
  20         /* Cause some processes to exit */
  21         int *p =0 ;
  22         *p = rank;
  23     }
  24     MPI_Finalize( );
  25     return 0;
  26 }