From 1cb6bdfbcc35a8510c7ba1148697d26f9cffdcdc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 5 Jan 2014 08:03:19 +0100
Subject: Translate bit string literals in aggregate. Fix bug18659.

---
 testsuite/gna/bug18659/crash.vhd | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 testsuite/gna/bug18659/crash.vhd

(limited to 'testsuite/gna/bug18659/crash.vhd')

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;
+
-- 
cgit v1.2.3