t_id
1100
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022558998 | 1027349 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 1782 } { Submitted by "Aleksey V. Vaneev" on 2002-01-27 } { e-mail: picoder@sbis.komi.ru } {$mode objfpc} type PStruct = ^TStruct; TStruct = packed record i: LongInt; end; TCls = class protected Fv: array [1..10] of TStruct; function getv (i: LongInt): TStruct; public property v [i: LongInt]: TStruct read getv; end; function TCls.getv (i: LongInt): TStruct; begin Result := Fv [i]; end; var sp: PStruct; o: TCls; begin o := TCls.create; { Should fail with 'variable expected' } sp := @o.v [10]; end.