diff options
Diffstat (limited to 'testsuite/gna/issue1834/tb.vhdl')
-rw-r--r-- | testsuite/gna/issue1834/tb.vhdl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/testsuite/gna/issue1834/tb.vhdl b/testsuite/gna/issue1834/tb.vhdl new file mode 100644 index 000000000..29258b948 --- /dev/null +++ b/testsuite/gna/issue1834/tb.vhdl @@ -0,0 +1,29 @@ +library IEEE; +use IEEE.std_logic_1164.all; + +entity tb is +end entity; +architecture a of tb is + signal clk : std_logic := '0'; + signal running : boolean := true; +begin + clk <= not clk after 5 ns when running else '0'; + + process(clk) + -- This assignment one throws a proper error message: + --constant var : integer := integer'high+1; + begin + if(rising_edge(clk)) then + -- Looping out of integer range results in Bug-Message + + -- 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; + running <= false; + end if; + end process; +end architecture; |