caml-list - the Caml user's mailing list
 help / color / mirror / Atom feed
From: Sebastien Briais <sebastien.briais@epfl.ch>
To: caml-list@inria.fr
Subject: [Caml-list] float numbers problem (CVS version of ocamlopt)
Date: Tue, 03 Jun 2003 13:55:12 +0200	[thread overview]
Message-ID: <3EDC8CA0.9090209@epfl.ch> (raw)

Hello,

when doing a little program in ocaml that uses float numbers,
I found something that sounds like a bug in the native compiler.

I have a PC (Pentium IV) with a RedHat 8.0 and the CVS version of ocaml 
: 3.06+34

I reduce the bug to the following file:

-- start of file toto.ml

let square x = x *. x

let _ =
  let x = 1.84066666666666823 in
  let x0 = 1.16666666666666674 in
  let dx = 0.674000000000001487 in
    print_float (x -. x0);
    print_newline();
    print_float (square (x -. x0));
    print_newline();
    print_float dx;
    print_newline();
    print_float (square dx);
    print_newline();

-- end of file

now, I compile this file with the bytecode compiler and then the native 
compiler
(and execute the resulting file)

bash-2.05b$ ocamlc -o toto toto.ml
bash-2.05b$ ./toto
0.674000000000001487
0.454276000000002012
0.674000000000001487
0.454276000000002012

bash-2.05b$ ocamlopt -o toto.opt toto.ml
bash-2.05b$ ./toto.opt
0.674000000000001487
nan.
0.674000000000001487
nan.

The results obtained with the native code compiler are very strange, 
aren't they ?
Does anyone else has this problem ?

I have to say that I also tried with the official release 3.06 of ocaml 
and this worked perfectly.
So, this strange behaviour has appeared after the latest official 
release of ocaml (3.06).
(That's why I did not post to the bug tracker since it is not a bug of 
an official release)

Regards

Sébastien



-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners


             reply	other threads:[~2003-06-03 11:55 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-06-03 11:55 Sebastien Briais [this message]
2003-06-04 13:12 ` Sebastien Briais
2003-06-06 23:42 ` John Max Skaller
2003-06-10 11:46 ` Xavier Leroy

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=3EDC8CA0.9090209@epfl.ch \
    --to=sebastien.briais@epfl.ch \
    --cc=caml-list@inria.fr \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).