gcc/testsuite/gnat.dg/aggr9_pkg.ads

   1 package Aggr9_Pkg is
   2
   3   type Byte is range 0 .. 255;
   4
   5   type R1 is
   6     record
   7       A,B : Byte;
   8     end record;
   9
  10   type R2 is
  11     record
  12       F : R1;
  13     end record;
  14
  15   procedure Send (M : R2);
  16
  17 end Aggr9_Pkg;