mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
30 lines
533 B
ObjectPascal
30 lines
533 B
ObjectPascal
{ Old file: tbs0333.pp }
|
|
{ }
|
|
|
|
{$if (not(defined(CPUI386)) and not(defined(CPUX86_64))) or defined(FPC_COMP_IS_INT64)}
|
|
{$define COMP_IS_INT64}
|
|
{$endif}
|
|
|
|
|
|
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.
|