1subroutine foo
2  !$omp do schedule(static) order(concurrent) order(concurrent) ! { dg-error "Duplicated 'order \\(' clause" }
3  do i = 1, 8
4    call f0 ()
5  end do
6  !$omp do schedule(static) order(reproducible:concurrent) order(unconstrained:concurrent)      ! { dg-error "Duplicated 'order \\(' clause" }
7  do i = 1, 8
8    call f0 ()
9  end do
10
11  !$omp loop bind(thread) order(concurrent) order(concurrent)    ! { dg-error "Duplicated 'order \\(' clause" }
12  do i = 1, 8
13    call f0 ()
14  end do
15  !$omp loop bind(thread) order(reproducible:concurrent) order(unconstrained:concurrent) ! { dg-error "Duplicated 'order \\(' clause" }
16  do i = 1, 8
17    call f0 ()
18  end do
19  !$omp simd order(concurrent) order(concurrent) ! { dg-error "Duplicated 'order \\(' clause" }
20  do i = 1, 8
21    call f0 ()
22  end do
23  !$omp simd order(reproducible:concurrent) order(unconstrained:concurrent)      ! { dg-error "Duplicated 'order \\(' clause" }
24  do i = 1, 8
25    call f0 ()
26  end do
27  !$omp distribute dist_schedule(static) order(concurrent) order(concurrent)     ! { dg-error "Duplicated 'order \\(' clause" }
28  do i = 1, 8
29    call f0 ()
30  end do
31  !$omp loop bind(thread) order(reproducible:concurrent) order(unconstrained:concurrent) ! { dg-error "Duplicated 'order \\(' clause" }
32  do i = 1, 8
33    call f0 ()
34  end do
35end
36