Browse Source

* do not check the last digit to avoid test failure due to small precision issue.

git-svn-id: trunk@4114 -
yury 19 years ago
parent
commit
b6192642c4
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/webtbs/tw2129.pp

+ 1 - 1
tests/webtbs/tw2129.pp

@@ -42,7 +42,7 @@ begin
   { this constant has been verified and is correct (FK) }
   { doubles have slightly different precision on processors <> x86, because }
   { intermediate calculations are not performed in 80 bit there (JM)        }
-  if s<>'-6531422287566170215' then
+  if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
 {$endif cpui386}
     begin
       writeln(s);