fpc/tests/tbs/tbs0333.pp

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