t_id
1017
t_adddate
2003/10/10
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950840679 | 1015804 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2729 } { Submitted by "marco (the gory bugs department)" on 2003-10-09 } { e-mail: } {$mode delphi} type tbla= class(tobject) l : longint; class function bla:tbla; function get : longint;virtual; procedure doset; end; procedure tbla.doset; begin l:=$deadbeaf; end; function tbla.get : longint; begin result:=l; end; class function tbla.bla:tbla; begin result:=Create; end; var bla : tbla; begin bla:=tbla.bla; bla.doset; if bla.get<>$deadbeaf then begin writeln('Problem'); halt(1); end; bla.free; end.