gcc/testsuite/gnat.dg/pack9.ads

   1 package Pack9 is
   2
   3   type R1 is record
   4     I : Integer;
   5     C : Character;
   6   end record;
   7
   8   type R2 is record
   9     I1, I2 : Integer;
  10     A : R1;
  11   end record;
  12   pragma Pack(R2);
  13
  14   type R2_Ptr is access all R2;
  15
  16   procedure Copy (X, Y : R2_Ptr);
  17
  18 end Pack9;