public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
From: "dominiq at lps dot ens dot fr" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/35285] Failures in the NIST test suite FM827 with -m64
Date: Wed, 05 Mar 2008 15:30:00 -0000 [thread overview]
Message-ID: <20080305152941.25270.qmail@sourceware.org> (raw)
In-Reply-To: <bug-35285-12313@http.gcc.gnu.org/bugzilla/>
------- Comment #11 from dominiq at lps dot ens dot fr 2008-03-05 15:29 -------
(In reply to comment #10)
[ibook-dhum] f90/bug% cat nist_827_red_2.f
program fm827
double precision avd, bvd, cvd, dvd, dvcorr
cvd = 10.0d0
dvd = 6.0d0
dvd = dlog10(cvd) - 2.0d0 /
1 (dexp(dvd) + 1.0d0)
avd = dvd - dtanh(3.0d0)
if (abs(avd) > 0.5000000000d-09) then
print *, "fails"
print *, "avd=",avd," should be: ", 0.0_8
print *, dlog10(cvd), dexp(dvd)
else
print *, "passes"
end if
end
[ibook-dhum] f90/bug% gfc -m64 nist_827_red_2.f
[ibook-dhum] f90/bug% a.out
fails
avd= -1.00000000000000000 should be: 0.0000000000000000
0.0000000000000000 0.99506696128579508
The first real of the last line is dlog10(cvd) with cvd = 10.0d0, so it should
be 1.0 and not 0.0.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35285
next prev parent reply other threads:[~2008-03-05 15:30 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-02-21 23:09 [Bug fortran/35285] New: " dominiq at lps dot ens dot fr
2008-02-22 15:46 ` [Bug fortran/35285] " jvdelisle at gcc dot gnu dot org
2008-02-22 16:02 ` dominiq at lps dot ens dot fr
2008-02-22 16:18 ` dominiq at lps dot ens dot fr
2008-02-22 16:22 ` dominiq at lps dot ens dot fr
2008-03-03 5:00 ` jvdelisle at gcc dot gnu dot org
2008-03-03 23:27 ` fxcoudert at gcc dot gnu dot org
2008-03-04 21:46 ` dominiq at lps dot ens dot fr
2008-03-04 21:59 ` fxcoudert at gcc dot gnu dot org
2008-03-04 22:21 ` dominiq at lps dot ens dot fr
2008-03-05 14:40 ` fxcoudert at gcc dot gnu dot org
2008-03-05 15:30 ` dominiq at lps dot ens dot fr [this message]
2008-03-05 20:46 ` dominiq at lps dot ens dot fr
2008-03-05 21:27 ` fxcoudert at gcc dot gnu dot org
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=20080305152941.25270.qmail@sourceware.org \
--to=gcc-bugzilla@gcc.gnu.org \
--cc=gcc-bugs@gcc.gnu.org \
/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 read-only IMAP folder(s) and NNTP newsgroup(s).