testsuite/gna: add a test for #1246

1 files changed, 22 insertions, 0 deletions

diff --git a/testsuite/gna/issue1246/pkg_a.vhdl b/testsuite/gna/issue1246/pkg_a.vhdl
new file mode 100644
index 000000000..75009ad43
--- /dev/null
+++ b/testsuite/gna/issue1246/pkg_a.vhdl
@@ -0,0 +1,22 @@
+package pkg_A is
+        --------------------------------------
+	generic (
+		A: 	integer := 1
+	);
+        --------------------------------------
+	-- constant A: integer := 1;
+        --------------------------------------
+	package pkgB is new work.pkg_B
+	generic map(
+		B => A+1
+	);
+	procedure showA;
+end pkg_A;
+package body pkg_A is
+	procedure showA is 
+		use pkgB.showB;
+	begin
+		report "A:" & integer'image(A);
+		showB;
+	end procedure showA;
+end package body pkg_A;