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