gcc/testsuite/gnat.dg/limited_aggr.ads


1
2
3
4
5
6
7
8
9
10

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;