Add testcase for #316

2 files changed, 23 insertions, 0 deletions

diff --git a/testsuite/gna/issue316/gen_pkg.vhdl b/testsuite/gna/issue316/gen_pkg.vhdl
new file mode 100644
index 000000000..5a730df51
--- /dev/null
+++ b/testsuite/gna/issue316/gen_pkg.vhdl
@@ -0,0 +1,13 @@
+package gen_pkg is
+  generic (
+    type T;
+    function "-"(a : T)    return T-- is <>;
+  );
+end package;
+
+use work.gen_pkg;
+
+package p is new gen_pkg
+  generic map (
+    T => T_1000
+  );
diff --git a/testsuite/gna/issue316/testsuite.sh b/testsuite/gna/issue316/testsuite.sh
new file mode 100755
index 000000000..8175b86d2
--- /dev/null
+++ b/testsuite/gna/issue316/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+analyze_failure gen_pkg.vhdl
+
+clean
+
+echo "Test successful"