1*c548a641Sbostic(* 2*c548a641Sbostic * Test of procedure variables. 3*c548a641Sbostic *) 4*c548a641Sbostic 5*c548a641Sbosticmodule main; 6*c548a641Sbostic 7*c548a641Sbosticprocedure p (var i : integer); 8*c548a641Sbosticbegin 9*c548a641Sbostic i := 3; 10*c548a641Sbosticend p; 11*c548a641Sbostic 12*c548a641Sbosticprocedure q ; 13*c548a641Sbosticvar 14*c548a641Sbostic t : procedure(var integer); 15*c548a641Sbostic j : integer; 16*c548a641Sbosticbegin 17*c548a641Sbostic t := p; 18*c548a641Sbostic t(j); 19*c548a641Sbostic j := j + 1; 20*c548a641Sbosticend q; 21*c548a641Sbostic 22*c548a641Sbosticbegin 23*c548a641Sbostic q; 24*c548a641Sbosticend main. 25