Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr29.adb
blob: c82a6f4c768e850046d574a3dc590672328ccb85 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-fdump-tree-gimple"
}
with
Ada
.
Streams
;
use
Ada
.
Streams
;
procedure
Aggr29
is
A
:
aliased
Stream_Element_Array
:=
(
1
..
512
=>
<>);
begin
null
;
end
;
--
{
dg
-
final
{
scan
-
tree
-
dump
-
not
"a___UNC = \\*"
"gimple"
}
}