(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
pr99007-2.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 teams distribute parallel for reduction(+:s) private (j)
      11    for (i = 0; i < 8; i++)
      12      for (j = 0; j < n; j++)
      13        s[j] += i;
      14    return s[0] + s[n - 1];
      15  }