Test suite results for test file tbs/tb0336.pp

Test run data :

Test file "tbs/tb0336.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015615.

Source:

var
   l : longint;
   d : dword;
   s : string;
   code : integer;

procedure do_error(l : longint);

  begin
     writeln('Error near number ',l);
     halt(1);
  end;

begin
   s:='4294967295';
   val(s,d,code);
   if code<>0 then
     do_error(1);
   s:='4294967296';
   val(s,d,code);
   if code=0 then
     do_error(1);

   s:='2147483647';
   val(s,l,code);
   if code<>0 then
     do_error(3);
   s:='2147483648';
   val(s,l,code);
   if code=0 then
     do_error(4);
   s:='-2147483648';
   val(s,l,code);
   if code<>0 then
     do_error(5);
   s:='-2147483649';
   val(s,l,code);
   if code=0 then
     do_error(6);
end.

Link to SVN view of tbs/tb0336.pp source.