freepascal.compiler/tests/tbs/tb0136.pp

{ Old file: tbs0160.pp }
{ Incompatibility with BP: Self shouldn't be a reserved word. OK 0.99.9 (PM) }

program xxxx;

procedure yyyy;

var self:word;

begin
end;

procedure self;

begin
end;

begin
end.