call_error.txt

来自「PL0语言的编译器」· 文本 代码 · 共 22 行

\\外层函数不能调用在内层定义的函数
var a;
procedure   p;
	var b;
	procedure  q;
		var c;
		begin
			c:=2;
			b:=2+3+4-1+5*6*1+3/2/3+1
		end;
	begin
		call q;
		call p;
		read(a)
	end;
   begin
        call q;
        call p;
        write(a)
   end.