Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr26.adb
blob: 0466473d57bb2385b42a1808e96641b1d9e9e1c1 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
procedure
Aggr26
is
type
Row
is
array
(
Positive
)
of
Integer
;
H
:
array
(
Positive
)
of
Row
:=
(
others
=>
(
others
=>
0
));
--
{
dg
-
warning
"\"Storage_Error\" will be raised at run time"
}
begin
null
;
end
Aggr26
;