Add bug023.

1 files changed, 23 insertions, 0 deletions

diff --git a/testsuite/gna/bug023/ppkg.vhdl b/testsuite/gna/bug023/ppkg.vhdl
new file mode 100644
index 0000000..408a8dd
--- /dev/null
+++ b/testsuite/gna/bug023/ppkg.vhdl
@@ -0,0 +1,23 @@
+package ppkg is
+  procedure rep1 (msg : string := "failure");
+  procedure rep2;
+  procedure rep3;
+end ppkg;
+
+package body ppkg is
+  procedure rep1 (msg : string := "failure") is
+  begin
+    report msg;
+  end rep1;
+  
+  procedure rep2 is
+  begin
+    rep1;
+    rep1;
+  end rep2;
+  
+  procedure rep3 is
+  begin
+    rep1;
+  end rep3;
+end ppkg;