testsuite/gna: add a test

1 files changed, 13 insertions, 0 deletions

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;