blob: 6bdedd9107f276bc0c80b799f5cd8bad57b97a73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{ 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.
|
