Test suite results for test file tbs/tb0281.pp

Test run data :

Test file "tbs/tb0281.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941031.

Source:

{ Old file: tbs0333.pp }
{  }

{$ifdef cpu68k}
  {$define COMP_IS_INT64}
{$endif cpu68k}


var
  a,b : comp;
  s1,s2 : string;
begin
  a:=11384563;
  b:=a*a;
{$ifdef COMP_IS_INT64}
  str(a*a,s1);
  str(b,s2);
{$else not COMP_IS_INT64}
  str(a*a:0:0,s1);
  str(b:0:0,s2);
{$endif COMP_IS_INT64}
  writeln(s1);
  writeln(s2);
  if (s1<>'129608274700969') or (s2<>'129608274700969') then
   begin
     writeln('Error with comp type rounding');
     halt(1);
   end;
end.

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