t_id
601
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022396859 | 1027328 | True | False | Successfully run |
Record count: 1
{$mode delphi} var count : longint; procedure p1(w:word);overload; begin writeln('word'); count:=count or 1; end; procedure p1(l:longint);overload; begin writeln('longint'); count:=count or 2; end; var f1 : procedure(l:longint); f2 : procedure(w:word); begin f1:=p1; f2:=p1; f1(1); f2(1); if count<>3 then begin writeln('ERROR!'); halt(1); end; end.