gcc/testsuite/gnat.dg/debug1.ads

   1 package debug1 is
   2
   3   type Vector is array (Natural range <>) of Natural;
   4   type Vector_Access is access Vector;
   5
   6   type Data_Line is record
   7     Length : Vector (1 .. 1);
   8     Line   : Vector_Access;
   9   end record;
  10
  11   type Data_Block is array (1 .. 5) of Data_Line;
  12   type Data_Block_Access is access Data_Block;
  13
  14   type Vector_Ptr is access Vector;
  15
  16   type Meta_Data is record
  17     Vector_View : Vector_Ptr;
  18     Block_View  : Data_Block_Access;
  19   end record;
  20
  21 end;