test2.txt

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

$ Pl test2:synatax analysis
begin
      const a=1;
      integer x,y,X;
      boolean m,n;
integer array c[10];
 proc p
begin
   integer x,y;
    skip;
    read x,y;
    x,y:=2,a;
   write x,y;
end;
x:=3;
if x>0 -> y:=x;[]
   y>1 -> X:=y;
fi;
do X=3 -> write -3;
od;
call p;
c[1],c[2]:=1*2,2*x;
end.