t_id
840
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525476536 | 948189 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 1699 } { Submitted by "SHADOW" on 2001-11-25 } { e-mail: mdikm@hotmail.com } const i : longint = 0; procedure nset(var d:byte;p,c:byte;v:byte); begin i:=i or 1; end; procedure nset(var d:word;p,c:byte;v:word); begin i:=i or 2; end; procedure nset(var d:cardinal;p,c:byte;v:cardinal); begin i:=i or 4; end; procedure nset(var d:qword;p,c:byte;v:qword); begin i:=i or 8; end; var b : byte; w : word; c : cardinal; q : qword; begin nset(b,0,0,0); nset(w,0,0,0); nset(c,0,0,0); nset(q,0,0,0); if i<>15 then begin Writeln('Error'); halt(1); end; end.