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