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 }