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