Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
goacc
/
array-with-dt-1.f90
blob: 4a3ff0ef3a75f128fc22d302b28fdfd1f8a6ecc0 [
file
] [
log
] [
blame
]
type t
integer
,
allocatable
::
A
(:,:)
end
type t
type
(
t
),
allocatable
::
b
(:)
!
$acc update host
(
b
)
!
$acc update host
(
b
(:))
!
$acc update host
(
b
(
1
)%
A
)
!
$acc update host
(
b
(
1
)%
A
(:,:))
end