1*44171Sbostic(* 2*44171Sbostic * Test of nested procedures and modules. 3*44171Sbostic *) 4*44171Sbostic 5*44171Sbosticprogram nested (input, output); 6*44171Sbosticvar 7*44171Sbostic i, k : integer; 8*44171Sbostic 9*44171Sbosticprocedure p (var i : integer); 10*44171Sbosticvar 11*44171Sbostic j, k : integer; 12*44171Sbostic 13*44171Sbostic procedure nestedp (var j : integer); 14*44171Sbostic var 15*44171Sbostic i : integer; 16*44171Sbostic begin 17*44171Sbostic i := j + 2; 18*44171Sbostic j := i; 19*44171Sbostic end; 20*44171Sbostic 21*44171Sbosticbegin 22*44171Sbostic j := i + 1; 23*44171Sbostic nestedp(j); 24*44171Sbostic i := j; 25*44171Sbosticend; 26*44171Sbostic 27*44171Sbosticbegin 28*44171Sbostic i := 3; 29*44171Sbostic p(i); 30*44171Sbosticend. 31