test8.pl

来自「包含“源代码”“文档”“可执行文件（例子）”三个文件夹」· PL 代码 · 共 7 行

procedure p;
  procedure q;
    var a;
     begin a:=1 end;
  begin call q end;
begin call q end.