testsuite/gna/bug024/ppkg.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;