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