gcc-4.9/gcc/testsuite/gnat.dg/discr23_pkg.ads


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

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;