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

* fixed test

Browse Source 
git-svn-id: trunk@8043 -
This commit is contained in:
Vincent Snijders 2007-07-14 06:37:46 +00:00
parent 8527ed6a8d
commit d4f033bb78
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw2129.pp
View File

@ -36,14 +36,14 @@ begin
comp1:=swap(comp1); comp1:=swap(comp1);
{$endif FPC_DOUBLE_HILO_SWAPPED} {$endif FPC_DOUBLE_HILO_SWAPPED}
str(comp1,s); str(comp1,s);
{$ifdef FPC_HAS_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
if s<>'-6.53142228756617E+0018' then if s<>'-6.53142228756617E+0018' then
{$else FPC_HAS_EXTENDED} {$else FPC_HAS_TYPE_EXTENDED}
{ this constant has been verified and is correct (FK) } { this constant has been verified and is correct (FK) }
{ doubles have slightly different precision on processors <> x86, because } { doubles have slightly different precision on processors <> x86, because }
{ intermediate calculations are not performed in 80 bit there (JM) } { intermediate calculations are not performed in 80 bit there (JM) }
if Copy(s,1,Length(s)-1)<>'-653142228756617021' then if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
{$endif FPC_HAS_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
begin begin
writeln(s); writeln(s);
writeln('error'); writeln('error');