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;