test4.txt

来自「简单编译器的源代码,是大学课程设计内容,附简单测试用例」· 文本 代码 · 共 18 行

$ PL test4: scope analysis
begin
 integer x;
 boolean y;
 proc P
 begin
 integer x;
 x:=1;
 end;
proc Q
begin
read x;
y:=true;
end;
call P;
call Q;
write x;
end.