* test works only well if the constants have the same type as the operands of mod

git-svn-id: trunk@38336 -

tests/webtbs/tw33167.pp

@@ -3,7 +3,7 @@ uses
   math;
 
 var
-  a,b,c : double;
+  a,b,c : float;
 begin
   a:=7.7;
   b:=1.1;