! { dg-do run }
! { dg-require-effective-target offload_device_nonshared_as }

program p
implicit none
integer, dimension(100) :: parr
integer :: i

parr = [(i, i=1,100)]

!$omp target enter data map(to: parr)

call s(parr)

do i=1,100
  if (mod(i,3).eq.1 .and. parr(i).ne.999) stop 1
  if (mod(i,3).ne.1 .and. parr(i).ne.i) stop 2
end do

!$omp target exit data map(delete: parr)

contains
subroutine s(arr)
implicit none
integer, intent(inout) :: arr(*)

!$omp target map(alloc: arr(1:100))
arr(1:100) = 999
!$omp end target

!$omp target update from(arr(1:100:3))

end subroutine s
end program p