t_id
622
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949266516 | 1015553 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc}{$mode objfpc}{$endif} var err : boolean; type tc1=class constructor Create;overload; end; tc2=class(tc1) constructor Create(l:longint=0);overload; end; constructor tc1.create; begin writeln('tc1.create()'); end; constructor tc2.create(l:longint); begin writeln('tc2.create()'); err:=false; end; var c : tc2; begin err:=true; c:=tc2.create(); c.free; if err then begin writeln('Error!'); halt(1); end; end.