gcc/testsuite/gnat.dg/discr59_pkg2.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

generic

   Max_Length : Positive;

package Discr59_Pkg2 is

   type Token_Base_Type (Most : Natural) is record
      Text : String (1 .. Most) := (others => ' ');
      Last : Natural            := 0;
      Used : Natural            := 0;
   end record;

   type Token_Type is new Token_Base_Type (Max_Length);

end Discr59_Pkg2;