! { dg-additional-options "-fdump-tree-gimple" }

type :: type1
  character(len=35) :: a
end type type1

type :: type2
  character(len=46), pointer :: b
end type type2

type(type1) :: foo
type(type2) :: bar

type(type1), pointer :: pfoo
type(type2), pointer :: pbar

class(type1), pointer :: cfoo
class(type2), pointer :: cbar

class(type1), allocatable :: acfoo
class(type2), allocatable :: acbar

!$acc enter data copyin(foo%a)
!$acc enter data copyin(bar%b)

!$acc enter data copyin(pfoo%a)
!$acc enter data copyin(pbar%b)

!$acc enter data copyin(cfoo%a)
!$acc enter data copyin(cbar%b)

!$acc enter data copyin(acfoo%a)
!$acc enter data copyin(acbar%b)

! { dg-final { scan-tree-dump-times "to:\[^\\\[\]*\\\[len: 35\\\]" 4 "gimple" } }
! { dg-final { scan-tree-dump-times "to:\[^\\\[\]*\\\[len: 46\\\]" 4 "gimple" } }

end