gcc/testsuite/gcc.dg/gomp/pr27416.c

   1 /* PR middle-end/27416 */
   2 /* { dg-do compile } */
   3
   4 void
   5 foo (void)
   6 {
   7   int i = 0, j = 0;
   8 #pragma omp for firstprivate (j) /* { dg-error "is private in outer context" } */
   9   for (i = 0; i < 10; i++)
  10     j++;
  11 }
  12
  13 int
  14 bar (void)
  15 {
  16   int i, j;
  17 #pragma omp for lastprivate (j) /* { dg-error "is private in outer context" } */
  18   for (i = 0; i < 10; i++)
  19     j = i;
  20   return j;
  21 }
  22
  23 int
  24 baz (void)
  25 {
  26   int i, j = 0;
  27 #pragma omp for reduction (+:j) /* { dg-error "is private in outer context" } */
  28   for (i = 0; i < 10; i++)
  29     j++;
  30   return j;
  31 }