test4.pl

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

$ PL Program test4 ：不带作用域错误的测试程序。
begin
   integer x,y;
   proc output
     begin
       integer y;
       y:=100;
       write y;
     end;

   proc input
     begin
       read x;
     end;

   call input;
   y:=10*x;
   call output;
   write y; 

end.