testsuite/gna: add a test for #1269

3 files changed, 52 insertions, 0 deletions

diff --git a/testsuite/gna/issue1269/ent.vhdl b/testsuite/gna/issue1269/ent.vhdl
new file mode 100644
index 000000000..f2f44ee14
--- /dev/null
+++ b/testsuite/gna/issue1269/ent.vhdl
@@ -0,0 +1,21 @@
+library ieee;
+context ieee.ieee_std_context;
+
+entity ent is
+end ent;
+
+architecture arch of ent is
+begin
+  process
+    variable color: bit_vector(2 downto 0);
+    variable lcol:  std_logic_vector(31 downto 0);
+  begin
+        lcol := (
+          23 downto 16 => color(2),
+          15 downto 8 => color(1),
+          7 downto 0 => color(0),
+          others=> '0'
+        );
+    wait;
+  end process;
+end architecture;
diff --git a/testsuite/gna/issue1269/ent93.vhdl b/testsuite/gna/issue1269/ent93.vhdl
new file mode 100644
index 000000000..28fbf1aca
--- /dev/null
+++ b/testsuite/gna/issue1269/ent93.vhdl
@@ -0,0 +1,21 @@
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity ent93 is
+end ent93;
+
+architecture arch of ent93 is
+begin
+  process
+    variable color: bit_vector(2 downto 0);
+    variable lcol:  std_logic_vector(31 downto 0);
+  begin
+        lcol := (
+          23 downto 16 => color(2),
+          15 downto 8 => color(1),
+          7 downto 0 => color(0),
+          others=> '0'
+        );
+    wait;
+  end process;
+end architecture;
diff --git a/testsuite/gna/issue1269/testsuite.sh b/testsuite/gna/issue1269/testsuite.sh
new file mode 100755
index 000000000..b85d0801f
--- /dev/null
+++ b/testsuite/gna/issue1269/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze_failure ent93.vhdl
+
+export GHDL_STD_FLAGS=--std=08
+analyze_failure ent.vhdl
+
+echo "Test successful"