/*
 * Copyright (C) by Argonne National Laboratory
 *     See COPYRIGHT in top-level directory
 */

#include "mpi.h"

/*
 * This is a special test to check that mpiexec handles the death of
 * some processes without an Abort or clean exit
 */
int main(int argc, char *argv[])
{
    int rank, size;
    MPI_Init(0, 0);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Comm_size(MPI_COMM_WORLD, &size);
    MPI_Barrier(MPI_COMM_WORLD);
    if (rank == size - 1) {
        /* Cause some processes to exit */
        int *p = 0;
        *p = rank;
    }
    MPI_Finalize();
    return 0;
}
