* explicitly type cast constants so the compiler does not use smaller types if an fpu instruction set is selected which does not support the highest precision type

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@26775 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/webtbs/tw1901.pp b/tests/webtbs/tw1901.pp
index 9d5545dc6e..1a25d56c20 100644
--- a/tests/webtbs/tw1901.pp
+++ b/tests/webtbs/tw1901.pp
@@ -9,9 +9,9 @@
 {$Q-}
 {$R-}
 
-const Inf=1/0;
-      NaN=0/0;
-      MinusInf=-Inf;
+const Inf=extended(1/0);
+      NaN=extended(0/0);
+      MinusInf=extended(-Inf);
 
 function make_str( tail: string ): string;
 var