1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/gna/bug0117/repro8.vhdl b/testsuite/gna/bug0117/repro8.vhdl
new file mode 100644
index 000000000..ec21f3efd
--- /dev/null
+++ b/testsuite/gna/bug0117/repro8.vhdl
@@ -0,0 +1,19 @@
+entity repro8 is
+end repro8;
+
+architecture behav of repro8 is
+  procedure assign (a, b : out bit_vector; val : bit_vector) is
+  begin
+    (a, b) := val;
+  end assign;
+begin
+  process
+    variable a: bit_vector(7 downto 0);
+    variable b: bit_vector(3 downto 0);
+  begin
+    assign (a, b, x"012");
+    assert a = x"01";
+    assert b = x"2";
+    wait;
+  end process;
+end behav;