t_id
738
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-Or
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950714538 | 1015786 | True | False | Successfully run |
Record count: 1
{ %OPT=-Or } { %CPU=i386 } { -Or option is not recognized by m68k compiler } {$mode objfpc} Type t = class(TObject) f1,f2:dword; constructor Init(p1, p2:dword); end; constructor t.Init(p1, p2:dword); begin f1:=p1; f2:=p2; end; var ti:t; begin ti:=t.Init(1,2); writeln(ti.f1, ', ', ti.f2); // prints garbage instead of t2 if ti.f2<>2 then Halt(1); end.