1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
9 * This is a special test to check that mpiexec handles the death of
10 * some processes without an Abort or clean exit
12 int main(int argc, char *argv[])
15 MPI_Init(&argc, &argv);
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 */