(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
loop-10.c
       1  extern void abort (void);
       2  
       3  int i = 8;
       4  
       5  int main (void)
       6  {
       7    int j = 7, k = 0;
       8    #pragma omp for
       9    for (i = 0; i < 10; i++)
      10      ;
      11    #pragma omp for
      12    for (j = 0; j < 10; j++)
      13      ;
      14    /* OpenMP 3.0 newly guarantees that the original list items can't
      15       be shared with the privatized omp for iterators, even when
      16       the original list items are already private.  */
      17    if (i != 8 || j != 7)
      18      abort ();
      19    #pragma omp parallel private (i) reduction (+:k)
      20    {
      21      i = 6;
      22      #pragma omp for
      23      for (i = 0; i < 10; i++)
      24        ;
      25      k = (i != 6);
      26    }
      27    if (k)
      28      abort ();
      29    return 0;
      30  }