gcc/testsuite/gfortran.dg/goacc/array-with-dt-4.f90

type t4
  integer, allocatable :: quux(:)
end type t4
type t3
  type(t4), pointer :: qux(:)
end type t3
type t2
  type(t3), allocatable :: bar(:)
end type t2
type t
  type(t2), allocatable :: foo(:)
end type t

type(t), allocatable :: c(:)

!$acc enter data copyin(c(5)%foo(4)%bar(3)%qux(2)%quux(:))
!$acc exit data delete(c(5)%foo(4)%bar(3)%qux(2)%quux(:))
end