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 #if !defined(USE_STRICT_MPI) && defined(MPICH)
15 #define TEST_NBC_ROUTINES 1
18 int main(int argc, char *argv[])
20 #if defined(TEST_NBC_ROUTINES)
26 MPI_Init(&argc,&argv);
27 MPI_Comm_rank(MPI_COMM_WORLD,&rank);
28 #if defined(TEST_NBC_ROUTINES)
29 MPI_Ibarrier(MPI_COMM_WORLD,&barrier);
30 for (i=0,done=0; !done; i++) {
32 /*printf("[%d] MPI_Test: %d\n",rank,i);*/
33 MPI_Test(&barrier,&done,MPI_STATUS_IGNORE);
37 printf(" No Errors\n");