Test suite results for test file webtbs/tw1699.pp

Test run data :

Test file "webtbs/tw1699.pp" information:

t_id 840
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ 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.

Link to SVN view of webtbs/tw1699.pp source.