*** empty log message ***

tests/ts/ts010031.pp

@@ -0,0 +1,15 @@
+var
+   d1,d2 :double;
+   i1,i2 : int64;
+   c1,c2 : dword;
+
+begin
+  c1:=10;
+  c2:=100;
+  i1:=1000;
+  i2:=10000;
+  d1:=c1/c2;
+  d2:=i1/i2;
+  if d1<>d2 then
+    halt(1);
+end.