gcc/testsuite/c-c++-common/gomp/pr101535-1.c

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