aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/synth/synth34/tb_repro_nat.vhdl
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/synth/synth34/tb_repro_nat.vhdl')
-rw-r--r--testsuite/synth/synth34/tb_repro_nat.vhdl34
1 files changed, 34 insertions, 0 deletions
diff --git a/testsuite/synth/synth34/tb_repro_nat.vhdl b/testsuite/synth/synth34/tb_repro_nat.vhdl
new file mode 100644
index 000000000..acfe72fea
--- /dev/null
+++ b/testsuite/synth/synth34/tb_repro_nat.vhdl
@@ -0,0 +1,34 @@
+entity tb_repro_nat is
+end tb_repro_nat;
+
+library ieee;
+use ieee.std_logic_1164.all;
+
+architecture behav of tb_repro_nat is
+ signal clk : std_logic;
+ signal a : natural;
+ signal b : natural;
+begin
+ dut: entity work.repro_nat
+ port map (
+ clk => clk, a => a, b => b);
+
+ process
+ procedure pulse is
+ begin
+ clk <= '0';
+ wait for 1 ns;
+ clk <= '1';
+ wait for 1 ns;
+ end pulse;
+ begin
+ a <= 125;
+ pulse;
+ assert b = 125 severity failure;
+
+ a <= 7689;
+ pulse;
+ assert b = 7689 severity failure;
+ wait;
+ end process;
+end behav;