* 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: trunk@26775 -

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