testsuite/gna/issue2323/st4.vhdl


1
2
3
4
5
6
7
8
9

entity st4 is
end;

architecture arch of st4 is
  constant v : string (1 to 5) := "hello";
  subtype mypos is natural range v'subtype'range;
  subtype my2 is mypos range 2 to 6;
begin
end arch;