Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr26.adb
blob: 45370fd098ed883c059f4958155a506180dc62db [
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
;