test7.txt

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

$ PL test7: type error
begin
 integer x,y;
 proc p
begin
 skip;
end;
 boolean m;
 x:=~1;
 y:=false;
 m:=5*1;
 if 9>0 -> call p;
fi;
end.