testsuite/gna/issue1834/repro1.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

entity repro1 is
end;

architecture a of repro1 is
begin
  process
  begin
    -- Over int'high
    for i in integer'high to integer'high+1 loop
    end loop;

    -- Under int'low
    for i in integer'low downto integer'low-1 loop
    end loop;

    wait;
  end process;
end architecture;