! { dg-additional-options "-foffload-options=nvptx-none=-misa=sm_35" { target { offload_target_nvptx } } }

implicit none
!$omp requires reverse_offload
integer :: A(50), A2(50)
integer :: i, error
logical :: shared_mem

error = 0
shared_mem = .false.
A  = [(i, i=1,50)]
A2 = [(i, i=1,50)]

!$omp target map(to: shared_mem)
  shared_mem = .true.
!$omp end target

!$omp target map(to: A(20:40), A2(20:40)) map(from: error)
block
  integer :: B(10), C(10)
  B = 99
  C = 88
  A(20:40)  = -A(20:40)
  A2(20:40) = -A2(20:40)

  !$omp target device (ancestor:1)  &
  !$omp&       map(to: A(25:35)) map(always, to: A2(25:35))  &
  !$omp&       map(from:B(4:8)) map(tofrom:C(4:8))
     if (shared_mem) then
       if (any (A(25:35)  /= [(-i,i=25,35)])) stop 20
     else
       if (any (A(25:35)  /= [( i,i=25,35)])) stop 21
     end if
    if (any (A2(25:35) /= [(-i,i=25,35)])) stop 22
    if (any (C(4:8) /= 88)) stop 23

    A(25:35) = -A(25:35)*10
    A2(25:35) = -A2(25:35)*10
    B(4:8) = [4,5,6,7,8]
    C(4:8) = [-4,-5,-6,-7,-8]
  !$omp end target

  if (any (B(1:3) /= 99) .or. any (B(9:10) /= 99)) then
    error = 30
  elseif (any (B(4:8) /= [4,5,6,7,8])) then
    error = 31
  elseif (any (C(1:3) /= 88) .or. any (C(9:10) /= 88)) then
    error = 32
  elseif (any (C(4:8) /= [-4,-5,-6,-7,-8])) then
    error = 33
  else
    error = 0
  endif
end block

if (error /= 0) stop error

if (shared_mem) then
  if (any (A(1:19)  /= [( i, i=1,19)])) stop 1
  if (any (A(20:24) /= [(-i, i=20,24)])) stop 2
  if (any (A(36:40) /= [(-i, i=36,40)])) stop 3
  if (any (A(41:50) /= [( i, i=41,50)])) stop 4

  if (any (A(25:35) /= [( 10*i, i=25,35)])) stop 5
else
  if (any (A(1:24)  /= [( i, i=1,24)])) stop 6
  if (any (A(36:50) /= [( i, i=36,50)])) stop 7

  if (any (A(25:35) /= [(-10*i, i=25,35)])) stop 8
end if
if (any (A2(25:35) /= [( 10*i, i=25,35)])) stop 9
end