Translate bit string literals in aggregate. Fix bug18659.

2 files changed, 30 insertions, 0 deletions

diff --git a/testsuite/gna/bug18659/crash.vhd b/testsuite/gna/bug18659/crash.vhd
new file mode 100644
index 000000000..deaa17f8b
--- /dev/null
+++ b/testsuite/gna/bug18659/crash.vhd
@@ -0,0 +1,20 @@
+entity crash is
+
+end entity crash;
+library ieee;
+use ieee.std_logic_1164.all;
+architecture test of crash is
+    type t_mem2D is array
+        (natural range <>,  -- Address, specifies one word
+         natural range <>   -- Bit positions within a word
+        )
+        of std_logic;
+begin  -- architecture test
+    process is
+        variable var_array : t_mem2D(0 to 5, 7 downto 0);
+    begin  -- process
+        assert var_array = t_mem2D'(X"DEAD", X"BEEF") report "var array error" severity error;
+        wait;
+    end process;
+end architecture test;
+
diff --git a/testsuite/gna/bug18659/testsuite.sh b/testsuite/gna/bug18659/testsuite.sh
new file mode 100755
index 000000000..8e608bfcc
--- /dev/null
+++ b/testsuite/gna/bug18659/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze crash.vhd
+elab_simulate crash
+
+clean
+
+echo "Test successful"