mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 16:19:27 +02:00
20 lines
205 B
ObjectPascal
20 lines
205 B
ObjectPascal
{ 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.
|