(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
appendix-a/
a.30.1.c
       1  /* { dg-do compile } */
       2  
       3  void
       4  a30 (int n, float *a, float *b)
       5  {
       6    int i;
       7  #pragma omp parallel
       8    {
       9  #pragma omp for lastprivate(i)
      10      for (i = 0; i < n - 1; i++)
      11        a[i] = b[i] + b[i + 1];
      12    }
      13    a[i] = b[i];			/* i == n-1 here */
      14  }