flang/test/Semantics/OpenMP/from-clause-v51.f90

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51
   2
   3 subroutine f01(x)
   4   integer :: x(10)
   5 !ERROR: 'iterator' modifier cannot occur multiple times
   6   !$omp target update from(iterator(i = 1:5), iterator(j = 1:5): x(i + j))
   7 end
   8
   9 subroutine f03(x)
  10   integer :: x(10)
  11 !ERROR: 'expectation' modifier cannot occur multiple times
  12   !$omp target update from(present, present: x)
  13 end
  14
  15 subroutine f04
  16 !ERROR: 'f04' must be a variable
  17   !$omp target update from(f04)
  18 end