(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
appendix-a/
a.35.2.c
       1  /* { dg-do compile } */
       2  
       3  void work (int, int);
       4  
       5  void
       6  work1 (int i, int n)
       7  {
       8    int j;
       9    /* incorrect nesting of loop regions */
      10  #pragma omp for
      11    for (j = 0; j < n; j++)
      12      work (i, j);
      13  }
      14  
      15  void
      16  wrong2 (int n)
      17  {
      18  #pragma omp parallel default(shared)
      19    {
      20      int i;
      21  #pragma omp for
      22      for (i = 0; i < n; i++)
      23        work1 (i, n);
      24    }
      25  }