mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
23 lines
395 B
ObjectPascal
23 lines
395 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2737 }
|
|
{ Submitted by "Johannes Berg" on 2003-10-13 }
|
|
{ e-mail: bugs@johannes.sipsolutions.de }
|
|
program test;
|
|
{$MODE delphi}
|
|
|
|
type
|
|
TTest1 = class
|
|
FA: Integer;
|
|
property a: Integer read FA write FA;
|
|
end;
|
|
TTest2 = class(TTest1)
|
|
procedure b(aa: Integer);
|
|
end;
|
|
|
|
procedure TTest2.b(aa: Integer);
|
|
var a: Integer;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|