4.3BSD-Tahoe/usr/src/ucb/dbx/tests/mod/nested.mod

(*
 * Test of nested procedures and modules.
 *)

module main;
var
    i, k : integer;

procedure p (var i : integer);
var
    j, k : integer;

    procedure nestedp (var j : integer);
    var
	i : integer;
    begin
	i := j + 2;
	j := i;
    end nestedp;

begin
    j := i + 1;
    nestedp(j);
    i := j;
end p;

begin
    i := 3;
    p(i);
end main.