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