testsuite/gna: add tests for previous commit.

1 files changed, 23 insertions, 0 deletions

diff --git a/testsuite/gna/bug0117/repro1.vhdl b/testsuite/gna/bug0117/repro1.vhdl
new file mode 100644
index 000000000..5d8909b64
--- /dev/null
+++ b/testsuite/gna/bug0117/repro1.vhdl
@@ -0,0 +1,23 @@
+entity repro1 is
+end repro1;
+
+architecture behav of repro1 is
+  type bv_array is array(natural range <>) of bit_vector;
+  type bv_array_ptr is access bv_array;
+
+  procedure reshape (d : bv_array) is
+    constant word_len : natural := d(d'low)'length;
+    variable sym : bv_array_ptr;
+  begin
+    sym := new bv_array (0 to d'length - 1)(word_len - 1 downto 0);
+    sym.all := d;
+  end;
+
+  signal s : bv_array(1 to 2)(7 downto 0);
+begin
+  process
+  begin
+    reshape(s);
+    wait;
+  end process;
+end behav;