3 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/gna/bug092/t.vhdl b/testsuite/gna/bug092/t.vhdl
new file mode 100644
index 000000000..d6850bf56
--- /dev/null
+++ b/testsuite/gna/bug092/t.vhdl
@@ -0,0 +1,7 @@
+package t is
+  type str_acc is access string;
+
+  function my_alloc (v : natural) return str_acc;
+  attribute foreign of my_alloc : function is "VHPIDIRECT";
+end t;
+
diff --git a/testsuite/gna/bug092/t2.vhdl b/testsuite/gna/bug092/t2.vhdl
new file mode 100644
index 000000000..6de94a7e2
--- /dev/null
+++ b/testsuite/gna/bug092/t2.vhdl
@@ -0,0 +1,7 @@
+package t is
+  type str_acc is access string;
+
+  function my_alloc (v : natural) return str_acc;
+  attribute foreign of my_alloc : function is "VHPIDIRECT myalloc";
+end t;
+
diff --git a/testsuite/gna/bug092/testsuite.sh b/testsuite/gna/bug092/testsuite.sh
new file mode 100755
index 000000000..8cd06d676
--- /dev/null
+++ b/testsuite/gna/bug092/testsuite.sh
@@ -0,0 +1,9 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze_failure t.vhdl
+
+clean
+
+echo "Test successful"