gcc/testsuite/gnat.dg/discr59_pkg2.ads

   1 generic
   2
   3    Max_Length : Positive;
   4
   5 package Discr59_Pkg2 is
   6
   7    type Token_Base_Type (Most : Natural) is record
   8       Text : String (1 .. Most) := (others => ' ');
   9       Last : Natural            := 0;
  10       Used : Natural            := 0;
  11    end record;
  12
  13    type Token_Type is new Token_Base_Type (Max_Length);
  14
  15 end Discr59_Pkg2;