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

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=45
   2
   3 subroutine f00(x)
   4   integer :: x(10)
   5 !ERROR: Reference to x must be a contiguous object
   6   !$omp target update from(x(1:10:2))
   7 end
   8
   9 subroutine f01(x)
  10   integer :: x(10)
  11 !WARNING: 'iterator' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  12   !$omp target update from(iterator(i = 1:5): x(i))
  13 end
  14
  15 subroutine f02(x)
  16   integer :: x(10)
  17 !WARNING: 'expectation' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  18 !WARNING: 'iterator' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  19   !$omp target update from(present, iterator(i = 1:5): x(i))
  20 end
  21
  22 subroutine f03(x)
  23   integer :: x(10)
  24 !WARNING: 'expectation' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  25 !WARNING: 'expectation' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  26 !ERROR: 'expectation' modifier cannot occur multiple times
  27   !$omp target update from(present, present: x)
  28 end
  29
  30 subroutine f04
  31 !ERROR: 'f04' must be a variable
  32   !$omp target update from(f04)
  33 end