Added two float tests which show a difference under native & cross compilers.

[fedora-mingw.git] / ocaml / test_float.ml

diff --git a/ocaml/test_float.ml b/ocaml/test_float.ml
new file mode 100644 (file)
index 0000000..04aff8b
--- /dev/null
+++ b/ocaml/test_float.ml
@@ -0,0 +1,14 @@
+(* Float test, part of calendar test which was failing. *)
+
+open Printf
+
+let x = 1 * 3600 + 2 * 60 + 3 ;;
+
+printf "minutes = %g\n" (float x /. 60.) ;;
+
+printf "minutes (immediate) = 62.05 is %b\n" ((float x /. 60.) = 62.05) ;;
+
+let m = float x /. 60. ;;
+
+printf "minutes (variable) = 62.05 is %b\n" (m = 62.05) ;;
+