1 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/gna/issue1229/pkg.vhdl b/testsuite/gna/issue1229/pkg.vhdl
new file mode 100644
index 000000000..660b00a58
--- /dev/null
+++ b/testsuite/gna/issue1229/pkg.vhdl
@@ -0,0 +1,20 @@
+package pkg is
+  generic (N : integer := 2);
+
+  procedure showPackageN;
+
+  impure function c_int return integer;
+  attribute foreign of c_int : function is "VHPIDIRECT aux.so getInt";
+end package pkg;
+
+package body pkg is
+  procedure showPackageN is
+  begin
+    report integer'image(N);
+  end;
+
+  impure function c_int return integer is
+  begin
+    assert false report "c_int VHPI" severity failure;
+  end c_int;
+end package body pkg;