Add reproducer for issue #791

1 files changed, 17 insertions, 0 deletions

diff --git a/testsuite/gna/issue791/test.vhdl b/testsuite/gna/issue791/test.vhdl
new file mode 100644
index 000000000..77adb1e36
--- /dev/null
+++ b/testsuite/gna/issue791/test.vhdl
@@ -0,0 +1,17 @@
+entity test is
+end test;
+
+architecture behav of test is
+  procedure proc is
+  begin
+    null;
+  end proc;
+
+  package pkg is new work.generic_pkg
+                   generic map (proc);
+begin
+  process
+  begin
+    wait;
+  end process;
+end behav;