Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
goacc
/
array-with-dt-3.f90
blob: dcb63657f2bb9ec3e43c4aace2e3bec099cd09a2 [
file
] [
log
] [
blame
]
type t2
integer
::
A
(
200
,
200
)
end
type t2
type t
integer
,
allocatable
::
A
(:,:)
end
type t
type
(
t2
),
allocatable
::
c
(:)
type
(
t
),
allocatable
::
d
(:)
!
$acc
exit
data
delete
(
c
(
1
)%
A
)
!
$acc
exit
data
delete
(
d
(
1
)%
A
)
end