blob: 339734be868b7fa4c24ee8b797f636c86e832e19 [file] [log] [blame]
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;