* added missing double() typecasts

tests/test/tint642.pp

@@ -681,11 +681,11 @@ procedure testtypecastqword;
      q1:=$80000000;
      q1:=q1 shl 32;
      d2:=$80000000;
-     if q1<>d2*d2*2.0 then
+     if q1<>double(d2)*d2*2.0 then
        do_error(20);
      // register location
      q1:=q1+1;
-     if q1<>d2*d2*2.0+1 then
+     if q1<>double(d2)*d2*2.0+1 then
        do_error(2014);
   end;