1package Limited_Aggr is
2   type R is limited record
3      F1, F2 : Integer;
4   end record;
5   X : array (1..2) of integer;
6   Y : R := (-111, -222);
7   for Y'Address use X'Address;
8
9   procedure Dummy;
10end Limited_Aggr;
11