Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr22.adb
blob: a9eb2e700b6414d3c8725aaa937dd8ac633d28ee [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Aggr22
is
type
Ptr
is
access all
Integer
;
type
Arr
is
array
(
Positive
range
<>)
of
Ptr
;
procedure
Proc
is
A
:
Arr
(
1
..
33
);
begin
A
:=
(
1
=>
null
,
2
..
32
=>
My_Rec
.
I
'Access, 33 => null);
end;
end Aggr22;