freepascal.compiler/bugs/bug0160.pp

program xxxx;

procedure yyyy;

var self:word;

begin
end;

procedure self;

begin
end;

begin
end.