From f0aeb9278bec7c1b9ebf9e96a08c453966f0510d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 21 Dec 2016 20:34:03 +0100
Subject: Add testcase for #241

---
 testsuite/gna/issue241/arr.vhdl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 testsuite/gna/issue241/arr.vhdl

(limited to 'testsuite/gna/issue241/arr.vhdl')

diff --git a/testsuite/gna/issue241/arr.vhdl b/testsuite/gna/issue241/arr.vhdl
new file mode 100644
index 000000000..6d59a2871
--- /dev/null
+++ b/testsuite/gna/issue241/arr.vhdl
@@ -0,0 +1,17 @@
+entity arr is
+end;
+
+architecture behav of arr is
+  type arr_type is array (natural range <>) of natural;
+  constant a : arr_type (2 downto 1) := (1 | 2 => 3);
+  constant b : boolean := a (1) = a (2);
+begin
+  process
+  begin
+    case true is
+      when b => null;
+      when false => null;
+    end case;
+    wait;
+  end process;
+end behav;
-- 
cgit v1.2.3