1subroutine f1 (a)
2  integer :: a(*)
3  integer i
4  !$omp do order				! { dg-error "Failed to match clause" }
5  do i = 1, 128
6    a(i) = a(i) + 1
7  end do
8  !$omp do simd order :			! { dg-error "Failed to match clause" }
9  do i = 1, 128
10    a(i) = a(i) + 1
11  end do
12  !$omp simd order ( foobar )		! { dg-error "Expected ORDER\\(CONCURRENT\\) at .1. with optional 'reproducible' or 'unconstrained' modifier" }
13  do i = 1, 128
14    a(i) = a(i) + 1
15  end do
16  !$omp do simd order( concurrent	! { dg-error "Expected ORDER\\(CONCURRENT\\) at .1. with optional 'reproducible' or 'unconstrained' modifier" }
17  do i = 1, 128
18    a(i) = a(i) + 1
19  end do
20  !$omp do simd order( concurrent : foo )! { dg-error "Expected ORDER\\(CONCURRENT\\) at .1. with optional 'reproducible' or 'unconstrained' modifier" }
21  do i = 1, 128
22    a(i) = a(i) + 1
23  end do
24end
25
26subroutine f2 (a)
27  integer :: a(*)
28  integer i
29  !$omp teams
30  !$omp distribute order(concurrent)
31  do i = 1, 128
32    a(i) = a(i) + 1
33  end do
34  !$omp end teams
35  !$omp taskloop order (concurrent)	! { dg-error "Failed to match clause" }
36  do i = 1, 128
37    a(i) = a(i) + 1
38  end do
39  !$omp do order(concurrent) ordered	! { dg-error "ORDER clause must not be used together ORDERED" }
40  do i = 1, 128
41      !$omp ordered
42      a(i) = a(i) + 1
43      !$omp end ordered
44  end do
45  !$omp do ordered order(concurrent)	! { dg-error "ORDER clause must not be used together ORDERED" }
46  do i = 1, 128
47      !$omp ordered
48      a(i) = a(i) + 1
49      !$omp end ordered
50  end do
51  !$omp do ordered (1) order(concurrent)	! { dg-error "ORDER clause must not be used together ORDERED" }
52  do i = 1, 128
53      !$omp ordered depend (sink: i - 1)
54      !$omp ordered depend (source)
55  end do
56  !$omp do order(concurrent)ordered (1)	! { dg-error "ORDER clause must not be used together ORDERED" }
57  do i = 1, 128
58      !$omp ordered depend (sink: i - 1)
59      !$omp ordered depend (source)
60  end do
61end
62