t_id
881
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526248207 | 948323 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc} {$mode objfpc} {$endif} type TCls = class public procedure build (a, b, c: LongInt);overload; procedure build (a, b, c, d: LongInt);overload; end; const err : boolean=true; procedure TCls.build (a, b, c: LongInt); procedure subproc; begin writeln ('a, b, c'); err:=false; end; begin subproc; end; procedure TCls.build (a, b, c, d: LongInt); procedure subproc; begin writeln ('a, b, c, d'); end; begin end; var C: TCls; begin C := TCls.create; C.build (1, 2, 3); if err then halt(1); end.