flang/test/Semantics/OpenMP/order-clause01.f90

! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp

subroutine omp_order()
 integer :: i, j = 1
 !ERROR: At most one ORDER clause can appear on the SIMD directive
 !$omp simd order(concurrent) order(concurrent)
 do i=1,10
  j = j + 1
 end do
end subroutine omp_order