gcc/testsuite/gnat.dg/stack_usage4_pkg.ads

   1 package Stack_Usage4_Pkg is
   2
   3    subtype Name_Index_Type is Natural range 1 .. 63;
   4
   5    type Bounded_String is record
   6       Len  : Name_Index_Type;
   7       Data : String (Name_Index_Type'Range);
   8    end record;
   9
  10    function Get return Bounded_String;
  11
  12 end Stack_Usage4_Pkg;