1 /* -*- Mode: c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2013 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
7 /* Regression test for ticket #1785, contributed by Jed Brown. The test was
8 * hanging indefinitely under a buggy version of ch3:sock. */
14 int main(int argc, char *argv[])
19 MPI_Init(&argc,&argv);
20 MPI_Comm_rank(MPI_COMM_WORLD,&rank);
21 MPI_Ibarrier(MPI_COMM_WORLD,&barrier);
22 for (i=0,done=0; !done; i++) {
24 /*printf("[%d] MPI_Test: %d\n",rank,i);*/
25 MPI_Test(&barrier,&done,MPI_STATUS_IGNORE);
29 printf(" No Errors\n");