t_id
1178
t_adddate
2003/11/01
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949268040 | 1015553 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2481 } { Submitted by "Eero Tanskanen" on 2003-05-04 } { e-mail: yendor@nic.fi } {$mode objfpc} Type TMoo = Class A : Real; Constructor Init; End; Var Moo : TMoo; Operator := (V : Real) B : TMoo; Begin B.A := V; End; Constructor TMoo.Init; Begin A := 0; End; Begin Moo := TMoo.Init; Moo := 0.2; End.