Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gnat.dg
/
alignment4.adb
blob: 465bddab15229784f0ea9a90c907fe7796042696 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatws -fdump-tree-gimple"
}
procedure
Alignment4
is
type
Stream
is
array
(
1.
.
3
)
of
Character
;
S1
,
S2
:
Stream
;
begin
S1
:=
S2
;
end
;
--
{
dg
-
final
{
scan
-
tree
-
dump
-
not
".\F"
"gimple"
}
}