aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/bug023/ppkg1.vhdl
blob: 474bb6f832b05ce234a651d0be7bec5339231361 (plain)
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;