teshsuite/smpi/mpich-test/env/hang.c

   1
   2 #include <stdio.h>
   3 #include "mpi.h"
   4
   5 int main( int argc, char **args )
   6 {
   7   int mytid;
   8     printf("doing mpi_init\n");
   9     MPI_Init(&argc,&args);
  10
  11     MPI_Comm_rank(MPI_COMM_WORLD,&mytid);
  12     if (mytid < 2) MPI_Abort( MPI_COMM_WORLD, 1 );
  13     MPI_Finalize();
  14   return 0;
  15 }