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 |