1  void
       2  f1 (int *a)
       3  {
       4    int i;
       5    #pragma omp for order				/* { dg-error "expected" } */
       6    for (i = 0; i < 128; i++)
       7      a[i]++;
       8    #pragma omp for simd order :			/* { dg-error "expected" } */
       9    for (i = 0; i < 128; i++)
      10      a[i]++;
      11    #pragma omp simd order ( foobar )		/* { dg-error "expected" } */
      12    for (i = 0; i < 128; i++)
      13      a[i]++;
      14    #pragma omp for simd order( concurrent	/* { dg-error "expected" } */
      15    for (i = 0; i < 128; i++)
      16      a[i]++;
      17    #pragma omp for simd order( concurrent : foo )/* { dg-error "expected" } */
      18    for (i = 0; i < 128; i++)
      19      a[i]++;
      20  }
      21  
      22  void
      23  f2 (int *a)
      24  {
      25    int i;
      26    #pragma omp teams
      27    #pragma omp distribute order(concurrent)
      28    for (i = 0; i < 128; i++)
      29      a[i]++;
      30    #pragma omp taskloop order (concurrent)	/* { dg-error "'order' is not valid for '#pragma omp taskloop'" } */
      31    for (i = 0; i < 128; i++)
      32      a[i]++;
      33    #pragma omp for order(concurrent) ordered	/* { dg-error "'order' clause must not be used together with 'ordered'" } */
      34    for (i = 0; i < 128; i++)
      35      {
      36        #pragma omp ordered
      37        a[i]++;
      38      }
      39    #pragma omp for ordered order(concurrent)	/* { dg-error "'order' clause must not be used together with 'ordered'" } */
      40    for (i = 0; i < 128; i++)
      41      {
      42        #pragma omp ordered
      43        a[i]++;
      44      }
      45    #pragma omp for ordered (1) order(concurrent)	/* { dg-error "'order' clause must not be used together with 'ordered'" } */
      46    for (i = 0; i < 128; i++)
      47      {
      48        #pragma omp ordered depend (sink: i - 1)
      49        #pragma omp ordered depend (source)
      50      }
      51    #pragma omp for order(concurrent)ordered (1)	/* { dg-error "'order' clause must not be used together with 'ordered'" } */
      52    for (i = 0; i < 128; i++)
      53      {
      54        #pragma omp ordered depend (sink: i - 1)
      55        #pragma omp ordered depend (source)
      56      }
      57  }