(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
pr27388-3.c
       1  /* PR middle-end/27388 */
       2  /* { dg-do compile } */
       3  /* { dg-options "-fopenmp -fdump-tree-omplower" } */
       4  
       5  extern void bar (int);
       6  
       7  void
       8  foo (void)
       9  {
      10    int i = 0, j = 0;
      11  #pragma omp parallel firstprivate (i) private (j)
      12    {
      13  #pragma omp for
      14      for (i = 0; i < 2; i++)
      15        bar (i);
      16  #pragma omp for
      17      for (j = 0; j < 2; j++)
      18        bar (j);
      19    }
      20  }
      21  
      22  /* { dg-final { scan-tree-dump-times "omp for\[^\\n\]*private" 2 "omplower" } } */