testsuite/gna/bug081: add tests for previous commit

3 files changed, 36 insertions, 0 deletions

diff --git a/testsuite/gna/bug081/elab_func.vhdl b/testsuite/gna/bug081/elab_func.vhdl
new file mode 100644
index 000000000..8a951837c
--- /dev/null
+++ b/testsuite/gna/bug081/elab_func.vhdl
@@ -0,0 +1,11 @@
+package elab_func is
+  function f return natural;
+end elab_func;
+
+package body elab_func is
+  constant c : natural := f;
+  function f return natural is
+  begin
+    return 5;
+  end f;
+end elab_func;
diff --git a/testsuite/gna/bug081/elab_prot.vhdl b/testsuite/gna/bug081/elab_prot.vhdl
new file mode 100644
index 000000000..d9516ff12
--- /dev/null
+++ b/testsuite/gna/bug081/elab_prot.vhdl
@@ -0,0 +1,23 @@
+package prot_pkg is
+  type myprot is protected
+    impure function get return natural;
+    procedure set (val : natural);
+  end protected;
+end prot_pkg;
+
+package body prot_pkg is
+  shared variable v: myprot;
+
+  type myprot is protected body
+    variable var : natural;
+    impure function get return natural is
+    begin
+      return var;
+    end get;
+
+    procedure set (val : natural) is
+    begin
+      var := val;
+    end set;
+  end protected body myprot;
+end prot_pkg;
diff --git a/testsuite/gna/bug081/testsuite.sh b/testsuite/gna/bug081/testsuite.sh
index 0fec0adad..96c1d80b9 100755
--- a/testsuite/gna/bug081/testsuite.sh
+++ b/testsuite/gna/bug081/testsuite.sh
@@ -3,6 +3,8 @@
 . ../../testenv.sh
 
 analyze_failure -Werror=elaboration dummy.vhdl
+analyze_failure -Werror=elaboration elab_func.vhdl
+analyze_failure --std=08 -Werror=elaboration elab_prot.vhdl
 
 analyze dummy.vhdl
 elab_simulate_failure dummyentity