Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
array_memcpy_4.f90
blob: 45a4d77b04ee14baea4be0ad1a00e7c8386b2185 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fdump-tree-original"
}
type t
logical valid
integer
::
x
,
y
end
type
type
(
t
)
::
s
(
5
)
type
(
t
)
::
d
(
5
)
d
=
s
end
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"memcpy"
1
"original"
}
}