1*44125Sbostic(* 2*44125Sbostic * Test of procedure variables. 3*44125Sbostic *) 4*44125Sbostic 5*44125Sbosticmodule main; 6*44125Sbostic 7*44125Sbosticprocedure p (var i : integer); 8*44125Sbosticbegin 9*44125Sbostic i := 3; 10*44125Sbosticend p; 11*44125Sbostic 12*44125Sbosticprocedure q ; 13*44125Sbosticvar 14*44125Sbostic t : procedure(var integer); 15*44125Sbostic j : integer; 16*44125Sbosticbegin 17*44125Sbostic t := p; 18*44125Sbostic t(j); 19*44125Sbostic j := j + 1; 20*44125Sbosticend q; 21*44125Sbostic 22*44125Sbosticbegin 23*44125Sbostic q; 24*44125Sbosticend main. 25