1  /* { dg-do compile } */
       2  
       3  void work (int, int);
       4  
       5  void
       6  wrong5 (int n)
       7  {
       8  #pragma omp parallel
       9    {
      10  #pragma omp critical
      11      {
      12        work (n, 0);
      13  /* incorrect nesting of barrier region in a critical region */
      14  #pragma omp barrier	/* { dg-error "may not be closely nested" } */
      15        work (n, 1);
      16      }
      17    }
      18  }