3 files changed, 75 insertions, 1 deletions
diff --git a/testsuite/synth/memmux01/memmux07.vhdl b/testsuite/synth/memmux01/memmux07.vhdl
new file mode 100644
index 000000000..f408aa338
--- /dev/null
+++ b/testsuite/synth/memmux01/memmux07.vhdl
@@ -0,0 +1,23 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity memmux07 is
+  port (ad : std_logic;
+        val : std_logic_vector (1 downto 0);
+        dat : std_logic_vector (7 downto 0);
+        res : out std_logic_vector (7 downto 0));
+end memmux07;
+
+architecture behav of memmux07 is
+begin
+  process (ad, val, dat)
+    variable lo : natural;
+    variable t : std_logic_vector(7 downto 0);
+  begin
+    lo := to_integer(unsigned'(0 => ad));
+    t := dat;
+    t (4 * lo + 1 downto 4 * lo) := val;
+    res <= t;
+  end process;
+end behav;
diff --git a/testsuite/synth/memmux01/tb_memmux07.vhdl b/testsuite/synth/memmux01/tb_memmux07.vhdl
new file mode 100644
index 000000000..3efee65bc
--- /dev/null
+++ b/testsuite/synth/memmux01/tb_memmux07.vhdl
@@ -0,0 +1,51 @@
+entity tb_memmux07 is
+end tb_memmux07;
+
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+architecture behav of tb_memmux07 is
+  signal ad : std_logic;
+  signal val : std_logic_vector (1 downto 0);
+  signal dat, res : std_logic_vector (7 downto 0);
+begin
+  dut : entity work.memmux07
+    port map (
+      ad => ad,
+      val => val,
+      dat => dat,
+      res => res);
+
+  process
+  begin
+    dat <= x"de";
+
+    ad <= '0';
+    val <= "00";
+    wait for 1 ns;
+    assert res = x"dc" severity failure;
+
+    ad <= '1';
+    val <= "00";
+    wait for 1 ns;
+    assert res = x"ce" severity failure;
+
+    ad <= '0';
+    val <= "01";
+    wait for 1 ns;
+    assert res = x"dd" severity failure;
+
+    ad <= '0';
+    val <= "10";
+    wait for 1 ns;
+    assert res = x"de" severity failure;
+
+    ad <= '1';
+    val <= "10";
+    wait for 1 ns;
+    assert res = x"ee" severity failure;
+
+    wait;
+  end process;
+end behav;
diff --git a/testsuite/synth/memmux01/testsuite.sh b/testsuite/synth/memmux01/testsuite.sh
index d42d27482..7a9179100 100755
--- a/testsuite/synth/memmux01/testsuite.sh
+++ b/testsuite/synth/memmux01/testsuite.sh
@@ -3,7 +3,7 @@
 . ../../testenv.sh
 
 GHDL_STD_FLAGS=--std=08
-for t in memmux01 memmux02 memmux03 memmux04 memmux05; do
+for t in memmux01 memmux02 memmux03 memmux04 memmux05 memmux07; do
     analyze $t.vhdl tb_$t.vhdl
     elab_simulate tb_$t
     clean