t_id
1182
t_version
1.1
t_adddate
2003/11/02
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022403536 | 1027328 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$mode objfpc} {$inline on} type c = class l : longint; procedure p;inline; procedure p2; end; procedure c.p;inline; begin writeln(l); inc(l,10); end; procedure c.p2; begin l:=10; p; if l<>20 then halt(1); end; var o : c; begin o:=c.create; o.p2; o.free; end.