testsuite/gna/bug023/ppkg1.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

package ppkg1 is
  type line is access string;
  procedure rep1 (variable msg : line := new string (1 to 7));
  procedure rep2;
  procedure rep3;
end ppkg1;

package body ppkg1 is
  procedure rep1 (variable msg : line := new string (1 to 7)) is
  begin
    msg.all := (msg'range => ' ');
  end rep1;
  
  procedure rep2 is
  begin
    rep1;
    rep1;
  end rep2;
  
  procedure rep3 is
  begin
    rep1;
  end rep3;
end ppkg1;