t_id
1346
t_adddate
2004/08/28
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949673777 | 1015618 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 3241 } { Submitted by "Mattias Gaertner" on 2004-08-09 } { e-mail: mattias@freepascal.org } program TwoDefaults; {$mode objfpc}{$H+} uses Classes, SysUtils; type TMyClass = class private function GetA1(Index: integer): integer; function GetA2(Index: integer): integer; public property A1[Index: integer]: integer read GetA1; default; { Next line should give an error } property A2[Index: integer]: integer read GetA2; default; end; { TMyClass } function TMyClass.GetA1(Index: integer): integer; begin Result:=0; end; function TMyClass.GetA2(Index: integer): integer; begin Result:=0; end; begin end.