From e2d74e1f391c2b10d13e78baee8b10f6f878365e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 26 Mar 2023 16:48:28 +0200
Subject: testsuite/gna: add a test

---
 testsuite/gna/bug044/aggr2.vhdl   | 13 +++++++++++++
 testsuite/gna/bug044/testsuite.sh |  1 +
 2 files changed, 14 insertions(+)
 create mode 100644 testsuite/gna/bug044/aggr2.vhdl

(limited to 'testsuite')

diff --git a/testsuite/gna/bug044/aggr2.vhdl b/testsuite/gna/bug044/aggr2.vhdl
new file mode 100644
index 000000000..499810996
--- /dev/null
+++ b/testsuite/gna/bug044/aggr2.vhdl
@@ -0,0 +1,13 @@
+entity aggr2 is
+end;
+
+architecture behav of aggr2 is
+  constant g : natural := 1;
+begin
+  process
+    variable v : bit_vector(3 downto 0);
+  begin
+     v (g + 2 downto g) := (2 downto 0 => '1');
+     wait;
+  end process;
+end;
diff --git a/testsuite/gna/bug044/testsuite.sh b/testsuite/gna/bug044/testsuite.sh
index 07a290fe5..1097b3a22 100755
--- a/testsuite/gna/bug044/testsuite.sh
+++ b/testsuite/gna/bug044/testsuite.sh
@@ -3,6 +3,7 @@
 . ../../testenv.sh
 
 analyze_failure --std=93 aggr1.vhdl
+analyze_failure --std=93 aggr2.vhdl
 
 clean
 
-- 
cgit v1.2.3