blob: a7e4666d33e817d2ade5b95d1a32da306a6dcba1 (
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 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.
|
