Test suite results for test file webtbs/tw3833.pp

Test run data :

Test file "webtbs/tw3833.pp" information:

t_id 1554
t_adddate 2005/04/13
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015615.

Source:

{ Source provided for Free Pascal Bug Report 3833 }
{ Submitted by "Joost vd Sluis" on  2005-03-26 }
{ e-mail:  }
uses
  variants,sysutils;
var v1,v2     : variant;

begin
  v1 := 255;
  v2 := 255 + v1;
  if v2<>2*255 then
    begin
      writeln(v2);
      halt(1);
    end;
  v1 := '256';
  v2 := 'Hello:' + v1;
  if v2<>'Hello:256' then
    begin
      writeln(v2);
      halt(1);
    end;
  v1 := 255.0;
  v2 := 255.0 + v1;
  if v2<>2*255 then
    begin
      writeln(v2);
      halt(1);
    end;
  writeln('ok');
end.

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