1  /* { dg-do compile } */
       2  
       3  void work (int, int);
       4  
       5  void
       6  wrong3 (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  /* incorrect nesting of regions */
      15  #pragma omp single	/* { dg-error "may not be closely nested" } */
      16  	work (i, 0);
      17        }
      18    }
      19  }