(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
pr99007-3.c
       1  /* PR middle-end/99007 */
       2  
       3  int
       4  bar (int n)
       5  {
       6    int s[n];
       7    int i, j;
       8    for (i = 0; i < n; i++)
       9      s[i] = 0;
      10    #pragma omp parallel reduction(+:s) num_threads(2)
      11    #pragma omp parallel for reduction(+:s) private (j)
      12    for (i = 0; i < 8; i++)
      13      for (j = 0; j < n; j++)
      14        s[j] += i;
      15    return s[0] + s[n - 1];
      16  }