flang/test/Semantics/OpenMP/map-modifiers.f90

!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52 -Werror -Wno-experimental-option

subroutine f10(x)
  integer :: x
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
  !$omp target map(always, present close, to: x)
  x = x + 1
  !$omp end target
end

subroutine f11(x)
  integer :: x
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
  !$omp target map(always, present, close to: x)
  x = x + 1
  !$omp end target
end

subroutine f12(x)
  integer :: x
!WARNING: Duplicate map-type-modifier entry 'PRESENT' will be ignored
  !$omp target map(always, present, close, present, to: x)
  x = x + 1
  !$omp end target
end

subroutine f13(x)
  integer :: x(10)
!ERROR: The iterator variable must be of integer type
!ERROR: Must have INTEGER type, but is REAL(4)
  !$omp target map(present, iterator(real :: i = 1:10), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f14(x)
  integer :: x(10)
!ERROR: The begin and end expressions in iterator range-specification are mandatory
  !$omp target map(present, iterator(integer :: i = :10:1), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f15(x)
  integer :: x(10)
!ERROR: The begin and end expressions in iterator range-specification are mandatory
  !$omp target map(present, iterator(integer :: i = 1:), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f16(x)
  integer :: x(10)
!ERROR: The begin and end expressions in iterator range-specification are mandatory
  !$omp target map(present, iterator(integer :: i = 1::-1), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f17(x)
  integer :: x(10)
!WARNING: The step value in the iterator range is 0
  !$omp target map(present, iterator(integer :: i = 1:2:0), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f18(x)
  integer :: x(10)
!WARNING: The begin value is less than the end value in iterator range-specification with a negative step
  !$omp target map(present, iterator(integer :: i = 1:10:-2), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f19(x)
  integer :: x(10)
!WARNING: The begin value is greater than the end value in iterator range-specification with a positive step
  !$omp target map(present, iterator(integer :: i = 12:1:2), to: x(i))
  x = x + 1
  !$omp end target
end

subroutine f1a(x)
  integer :: x(10)
!ERROR: 'iterator' modifier cannot occur multiple times
  !$omp target map(present, iterator(i = 1:2), iterator(j = 1:2), to: x(i + j))
  x = x + 1
  !$omp end target
end

subroutine f23(x)
  integer :: x(10)
!ERROR: 'map-type' should be the last modifier
  !$omp target map(present, from, iterator(i = 1:10): x(i))
  x = x + 1
  !$omp end target
end

subroutine f24(x)
  integer :: x(10)
!ERROR: 'ompx-hold-modifier' modifier cannot occur multiple times
  !$omp target map(ompx_hold, ompx_hold: x)
  x = x + 1
  !$omp end target
end

subroutine f25()
  type t
    integer :: x, y
  end type
  type(t) :: s

!WARNING: OpenMP CLOSE map modifier ignored for structure component; map the base object with CLOSE to apply the modifier
  !$omp target map(close, tofrom: s%x, s%y)
  s%x = s%y
  !$omp end target
end

subroutine f26()
  type t
    integer :: x, y
  end type
  type(t) :: s

!WARNING: OpenMP CLOSE map modifier ignored for structure component; map the base object with CLOSE to apply the modifier
  !$omp target map(tofrom: s) map(close, tofrom: s%x)
  s%x = s%y
  !$omp end target
end

subroutine f27()
  type t
    integer :: x, y
  end type
  type(t) :: s

  !$omp target map(close, tofrom: s) map(close, tofrom: s%x)
  s%x = s%y
  !$omp end target

!WARNING: OpenMP CLOSE map modifier ignored for structure component; map the base object with CLOSE to apply the modifier
  !$omp target map(close, tofrom: s%x)
  s%x = s%y
  !$omp end target
end