gcc/testsuite/gnat.dg/discr23_pkg.ads

package Discr23_Pkg is

  subtype Size_Range is Positive range 1 .. 256;

  type Text (Size : Size_Range) is
    record
      Characters : String( 1.. Size);
    end record;

  function Get return Text;

end Discr23_Pkg;