gcc/testsuite/gnat.dg/lto17.ads

   1 package Lto17 is
   2
   3    type Chunk_List_Element;
   4    type Chunk_List is access Chunk_List_Element;
   5
   6    type Arr is array (Natural range <>) of Integer;
   7
   8    type Chunk(Size : Natural) is record
   9       Data  : Arr(1 .. Size);
  10       Where : Natural;
  11    end record;
  12
  13    type Chunk_List_Element(Size : Natural) is record
  14       Chnk : Chunk(Size);
  15       Link : Chunk_List;
  16    end record;
  17
  18    function To_Chunk_List(C : Chunk) return Chunk_List;
  19
  20 end Lto17;