t_id
1437
t_adddate
2005/01/06
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1023029453 | 1027427 | True | False | Success, compilation failed |
Record count: 1
{ %fail } { Source provided for Free Pascal Bug Report 3488 } { Submitted by "Jesus Reyes A." on 2004-12-28 } { e-mail: jesusrmx@yahoo.com.mx } program opertest; {$mode objfpc}{$H+} type TBug=class private FField: Integer; procedure SetField(const AValue: Integer); public property Field: Integer read FField write SetField; end; procedure TBug.SetField(const aValue: Integer); begin WriteLn('SetField visited'); FField := AValue; end; var Bug: TBug; begin Bug := TBug.Create; Bug.Field := 10; { This is not allowed with properties } Bug.Field += 1; WriteLn('Bug.Field=',Bug.Field); end.