Add testcase for #473

1 files changed, 27 insertions, 0 deletions

diff --git a/testsuite/gna/issue473/tbmem.vhdl b/testsuite/gna/issue473/tbmem.vhdl
new file mode 100644
index 000000000..a31a29520
--- /dev/null
+++ b/testsuite/gna/issue473/tbmem.vhdl
@@ -0,0 +1,27 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+entity tbmem is
+end entity tbmem;
+
+architecture TB of tbmem is
+
+begin
+
+    DM: process
+        type t_ram is array(natural range <>) of unsigned;
+        type p_ram is access t_ram;
+        variable myram : p_ram;
+    begin
+        myram := new t_ram(0 to 31)(15 downto 0);
+        for i in myram'range loop
+            myram(i) := TO_UNSIGNED(i, 16);
+        end loop;
+        for i in myram'range loop
+            report integer'image(i) & ": " & TO_HSTRING(myram(i));
+        end loop;
+        wait;
+    end process DM;
+    
+end architecture TB;