gcc/testsuite/c-c++-common/gomp/order-4.c

   1 int t;
   2 #pragma omp threadprivate(t)
   3
   4 void
   5 f1 (void)
   6 {
   7   int i;
   8   #pragma omp simd order(concurrent)    /* { dg-message "note: enclosing region" } */
   9   for (i = 0; i < 64; i++)
  10     t++;        /* { dg-error "threadprivate variable 't' used in a region with 'order\\(concurrent\\)' clause" } */
  11 }
  12
  13 void
  14 f2 (void)
  15 {
  16   int i;
  17   #pragma omp for simd order(concurrent)        /* { dg-message "note: enclosing region" } */
  18   for (i = 0; i < 64; i++)                      /* { dg-message "note: enclosing region" "" { target c++ } } */
  19     t++;        /* { dg-error "threadprivate variable 't' used in a region with 'order\\(concurrent\\)' clause" } */
  20 }
  21
  22 void
  23 f3 (void)
  24 {
  25   int i;
  26   #pragma omp for order(concurrent)     /* { dg-message "note: enclosing region" } */
  27   for (i = 0; i < 64; i++)
  28     t++;        /* { dg-error "threadprivate variable 't' used in a region with 'order\\(concurrent\\)' clause" } */
  29 }