ocaml/test_float.ml

   1 (* Float test, part of calendar test which was failing. *)
   2
   3 open Printf
   4
   5 let x = 1 * 3600 + 2 * 60 + 3 ;;
   6
   7 printf "minutes = %g\n" (float x /. 60.) ;;
   8
   9 printf "minutes (immediate) = 62.05 is %b\n" ((float x /. 60.) = 62.05) ;;
  10
  11 let m = float x /. 60. ;;
  12
  13 printf "minutes (variable) = 62.05 is %b\n" (m = 62.05) ;;
  14