1implicit none
2type t
3 integer :: b(5)
4end type t
5integer :: a(5), x, y(5)
6type(t) :: b
7!$omp target enter data map( to: a (:) )
8!$omp target enter data map( to: b % b )
9!$omp target enter data map( to: a(:) )
10!$omp target depend(out: y (2)) nowait
11!$omp end target
12
13end
14