(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
for-14.c
       1  // { dg-do compile }
       2  
       3  extern int printf (const char *, ...);
       4  extern void foo (int *);
       5  
       6  int main (void)
       7  {
       8    double d = 6;
       9    int i = 1, j = 6, k = 8;
      10  #pragma omp parallel shared(d) private(i) num_threads (4)
      11    {
      12      i = 4;
      13  #pragma omp for lastprivate(j)
      14      for (j = 1; j <= k; j++)
      15        printf ("%s %d %d %d %p %g\n", "Hello, World!", i, j, k, &j, d);
      16      printf ("%s %d %g\n", "Hello, World!", i, d);
      17    }
      18    return 0;
      19  }