错误检测_过程名出错.txt

一个pascal子集编译器。输入pascal原程序

program fun;
var zhou,ming;
	procedure love;
	begin
	zhou:=ming
	end
begin
call zhou
end