1type t2 2 integer :: A(200,200) 3end type t2 4type t 5 integer, allocatable :: A(:,:) 6end type t 7 8type(t2),allocatable :: c(:) 9type(t), allocatable :: d(:) 10 11!$acc exit data delete(c(1)%A) 12!$acc exit data delete(d(1)%A) 13 14end 15