test/Semantics/OpenMP/to-clause-v51.f90

!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51

subroutine f01(x)
  integer :: x(10)
!ERROR: 'iterator' modifier cannot occur multiple times
  !$omp target update to(iterator(i = 1:5), iterator(j = 1:5): x(i + j))
end

subroutine f03(x)
  integer :: x(10)
!ERROR: 'present-modifier' modifier cannot occur multiple times
  !$omp target update to(present, present: x)
end

subroutine f04
!ERROR: 'f04' must be a locator list item
  !$omp target update to(f04)
end