t_id
1160
t_adddate
2003/10/22
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949667378 | 1015618 | True | False | Successfully run |
Record count: 1
{ 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.