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

/* Regression test for ticket #1785, contributed by Jed Brown.  The test was
 * hanging indefinitely under a buggy version of ch3:sock. */

#include <mpi.h>
#include <stdio.h>
#include <unistd.h>
#include "mpitest.h"

int main(int argc, char *argv[])
{
    MPI_Request barrier;
    int rank, i, done;

    MTest_Init(&argc, &argv);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Ibarrier(MPI_COMM_WORLD, &barrier);
    for (i = 0, done = 0; !done; i++) {
        usleep(1000);
        /*printf("[%d] MPI_Test: %d\n",rank,i); */
        MPI_Test(&barrier, &done, MPI_STATUS_IGNORE);
    }

    MTest_Finalize(0);
    return 0;
}
