Add testcase for #310

4 files changed, 37 insertions, 0 deletions

diff --git a/testsuite/gna/issue310/b.vhdl b/testsuite/gna/issue310/b.vhdl
new file mode 100644
index 000000000..a21cd4676
--- /dev/null
+++ b/testsuite/gna/issue310/b.vhdl
@@ -0,0 +1,4 @@
+package b is
+    generic ( X: natural := 4);
+    type m is array (natural range <>) of bit_vector (X - 1 downto 0);
+end package;
diff --git a/testsuite/gna/issue310/bb.vhdl b/testsuite/gna/issue310/bb.vhdl
new file mode 100644
index 000000000..4f8e87d0e
--- /dev/null
+++ b/testsuite/gna/issue310/bb.vhdl
@@ -0,0 +1,2 @@
+package bb is new work.b generic map ( X => 6);
+
diff --git a/testsuite/gna/issue310/bbb.vhdl b/testsuite/gna/issue310/bbb.vhdl
new file mode 100644
index 000000000..b2ef9a1b4
--- /dev/null
+++ b/testsuite/gna/issue310/bbb.vhdl
@@ -0,0 +1,18 @@
+--  package bb is new work.b generic map ( X => 6);
+
+use work.bb.all;
+
+entity bbb is
+end entity;
+
+architecture a of bbb is
+
+begin
+    process
+        variable n:  m (0 to 0);
+    begin
+        report "X = " & integer'image(X);
+        report "m'left = " & integer'image(n(0)'left);
+        wait;
+    end process;
+end architecture;
diff --git a/testsuite/gna/issue310/testsuite.sh b/testsuite/gna/issue310/testsuite.sh
new file mode 100755
index 000000000..15ce43718
--- /dev/null
+++ b/testsuite/gna/issue310/testsuite.sh
@@ -0,0 +1,13 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+analyze b.vhdl
+analyze bb.vhdl
+analyze bbb.vhdl
+elab_simulate bbb
+
+clean
+
+echo "Test successful"