implicit none
type t
  integer :: dummy
  integer, pointer :: p1(:), p2(:)
  integer :: dummy2
end type t
type(t) :: var
integer :: i
allocate(var%p1(5),var%p2(2:4))
var%p1 = [22,53,28,6,4]
var%p2 = [46,679,54]

!$omp target enter data map(to:var%p1, var%p2)
!$omp target
  if (.not.associated(var%p1).or.lbound(var%p1,1)/=1.or.ubound(var%p1,1)/=5) stop 1
  if (.not.associated(var%p2).or.lbound(var%p2,1)/=2.or.ubound(var%p2,1)/=4) stop 2
  if (any (var%p1 /= [22,53,28,6,4])) stop 3
  if (any (var%p2 /= [46,679,54])) stop 4
!$omp end target
!$omp target exit data map(from:var%p1, var%p2)
end