testsuite: add case for issue 999

2 files changed, 43 insertions, 0 deletions

diff --git a/testsuite/ghdl-issues/issue999/test.vhdl b/testsuite/ghdl-issues/issue999/test.vhdl
new file mode 100644
index 0000000..71357c3
--- /dev/null
+++ b/testsuite/ghdl-issues/issue999/test.vhdl
@@ -0,0 +1,35 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity test is
+    port(
+        clk          : in std_logic;
+
+        read_reg     : in std_ulogic_vector(4 downto 0);
+        read_data    : out std_ulogic_vector(63 downto 0);
+
+        write_enable : in std_ulogic;
+        write_reg    : in std_ulogic_vector(4 downto 0);
+        write_data   : in std_ulogic_vector(63 downto 0)
+        );
+end entity test;
+
+architecture behaviour of test is
+    type regfile is array(0 to 31) of std_ulogic_vector(63 downto 0);
+    signal registers : regfile := (others => (others => '0'));
+begin
+    register_write_0: process(clk)
+    begin
+        if rising_edge(clk) then
+            if write_enable = '1' then
+                registers(to_integer(unsigned(write_reg))) <= write_data;
+            end if;
+        end if;
+    end process register_write_0;
+
+    register_read_0: process(all)
+    begin
+        read_data <= registers(to_integer(unsigned(read_reg)));
+    end process register_read_0;
+end architecture behaviour;
diff --git a/testsuite/ghdl-issues/issue999/testsuite.sh b/testsuite/ghdl-issues/issue999/testsuite.sh
new file mode 100755
index 0000000..981976c
--- /dev/null
+++ b/testsuite/ghdl-issues/issue999/testsuite.sh
@@ -0,0 +1,8 @@
+#!/bin/sh
+
+topdir=../..
+. $topdir/testenv.sh
+
+synth_import --std=08 test.vhdl -e
+
+clean