Add testcase for #241

1 files changed, 17 insertions, 0 deletions

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;