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