implicit none
type t
  integer :: b(5)
end type t
integer :: a(5), x, y(5)
type(t) :: b
!$omp target enter data map( to: a (:) )
!$omp target enter data map( to: b % b )
!$omp target enter data map( to: a(:) )
!$omp target depend(out: y (2)) nowait
!$omp end target

end