paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test for comp=int64;

Browse Source
This commit is contained in:
florian 2004-11-06 16:28:01 +00:00
parent b54ea2800a
commit 169a2e92c3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw2129.pp
View File

@ -32,14 +32,19 @@ var
begin begin
dbl1 := -1e-128; dbl1 := -1e-128;
comp1 := comp(dbl1); comp1 := comp(dbl1);
{$ifdef cpuarm}
comp1:=swap(comp1);
{$endif cpuarm}
str(comp1,s); str(comp1,s);
{$if defined(cpui386) or defined(cpux86_64)} {$if defined(cpui386) or defined(cpux86_64)}
if s<>'-6.53142228756617E+0018' then if s<>'-6.53142228756617E+0018' then
{$else cpui386} {$else cpui386}
if s<>'-6531422287566170215' then { this constant has been verified and is correct (FK) }
if s<>'-6531422287566170211' then
{$endif cpui386} {$endif cpui386}
begin begin
writeln(s);
writeln('error'); writeln('error');
halt(1); halt(1);
end; end;
end. end.