1package ppkg1 is
2  type line is access string;
3  procedure rep1 (variable msg : line := new string (1 to 7));
4  procedure rep2;
5  procedure rep3;
6end ppkg1;
7
8package body ppkg1 is
9  procedure rep1 (variable msg : line := new string (1 to 7)) is
10  begin
11    msg.all := (msg'range => ' ');
12  end rep1;
13
14  procedure rep2 is
15  begin
16    rep1;
17    rep1;
18  end rep2;
19
20  procedure rep3 is
21  begin
22    rep1;
23  end rep3;
24end ppkg1;
25