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