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