blob: 10b6a25f7e6aedbb6389ff738d9b72ccc2f9d2c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Source provided for Free Pascal Bug Report 2736 }
{ Submitted by "Johannes Berg" on 2003-10-13 }
{ e-mail: bugs@johannes.sipsolutions.de }
program test;
{$MODE delphi}
type
TTest1 = class
FA: Integer;
private
property a: Integer read FA write FA;
end;
TTest2 = class(TTest1)
procedure b(a: Integer);
end;
procedure TTest2.b(a: Integer);
begin
end;
begin
end.
|
