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 modifiers are 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: The PRESENT modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  18 !WARNING: Iterator modifiers are 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: The PRESENT modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
  25 !ERROR: Only one PRESENT modifier is allowed
  26   !$omp target update from(present, present: x)
  27 end
  28
  29 subroutine f04
  30 !ERROR: 'f04' must be a variable
  31   !$omp target update from(f04)
  32 end