testsuite/synth: add a test for #1948

2 files changed, 28 insertions, 0 deletions

diff --git a/testsuite/synth/issue1948/test.vhdl b/testsuite/synth/issue1948/test.vhdl
new file mode 100644
index 000000000..ba8ee69d6
--- /dev/null
+++ b/testsuite/synth/issue1948/test.vhdl
@@ -0,0 +1,20 @@
+package gen_pkg is
+   generic (type T);
+
+   procedure proc;
+end gen_pkg;
+
+package body gen_pkg is
+    procedure proc is
+    begin
+        null;
+    end proc;
+end gen_pkg;
+
+entity test is
+end entity test;
+
+architecture simple of test is
+   package pkg is new work.gen_pkg generic map (t => integer);
+begin
+end architecture simple;
diff --git a/testsuite/synth/issue1948/testsuite.sh b/testsuite/synth/issue1948/testsuite.sh
new file mode 100755
index 000000000..1bd00c114
--- /dev/null
+++ b/testsuite/synth/issue1948/testsuite.sh
@@ -0,0 +1,8 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+GHDL_STD_FLAGS=--std=08
+synth_only test
+
+echo "Test successful"