Hi! I've found an interesting bug. It makes an error while checking for errors (found "." after end, but ";" expected). And it is difficult to find it in the big part of code.
I decided to post here, becouse I've found it is very interesting.
Here is a simple example:
main.pas:
================================================== program buggy;
procedure some_act1;
procedure some_act2;
var
variable:Integer;
procedure global_act;
var
global:Integer;
begin
writeln('Global');
some_act1;
some_act2;
end;
procedure some_act1;
begin
writeln('Act1');
end;
procedure some_act2;
begin
writeln('Act2');
end;
var
s:string;
begin
s:='Main!';
writeln(s);
end.==================================================