nested.mod

来自「早期freebsd实现」· MOD 代码 · 共 31 行

(*
 * 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.