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  }