Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
limited_aggr.ads
blob: 49b7e8dc7009690c4d664e7db6ae230809c7c87c [
file
] [
log
] [
blame
]
package
Limited_Aggr
is
type R
is
limited record
F1
,
F2
:
Integer
;
end
record
;
X
:
array
(
1.
.
2
)
of integer
;
Y
:
R
:=
(-
111
,
-
222
);
for
Y
'Address use X'
Address
;
procedure
Dummy
;
end
Limited_Aggr
;