1  #include <omp.h>
       2  #include <stdlib.h>
       3  
       4  int
       5  main (void)
       6  {
       7    int l = 0;
       8    omp_nest_lock_t lock;
       9    omp_init_nest_lock (&lock);
      10  #pragma omp parallel reduction (+:l) num_threads (1)
      11    {
      12      if (omp_test_nest_lock (&lock) != 1)
      13        l++;
      14      if (omp_test_nest_lock (&lock) != 2)
      15        l++;
      16    #pragma omp task if (0) shared (lock, l)
      17      {
      18        if (omp_test_nest_lock (&lock) != 0)
      19  	l++;
      20      }
      21    #pragma omp taskwait
      22      if (omp_test_nest_lock (&lock) != 3)
      23        l++;
      24      omp_unset_nest_lock (&lock);
      25      omp_unset_nest_lock (&lock);
      26      omp_unset_nest_lock (&lock);
      27    }
      28    if (l)
      29      abort ();
      30    omp_destroy_nest_lock (&lock);
      31    return 0;
      32  }