testsuite/gna/bug0100/qual.vhdl


1
2
3
4
5
6
7
8
9
10
11

entity qual is
end;

architecture behav of qual is
begin
  process
    variable cnt : natural range 0 to 15;
  begin
    cnt := cnt'last'(others => '1');
  end process;
end behav;