public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
From: "tkoenig at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/24406] EQUIVALENCE broken in 32-bit code with optimization -O2
Date: Mon, 06 Feb 2006 20:33:00 -0000 [thread overview]
Message-ID: <20060206203338.14582.qmail@sourceware.org> (raw)
In-Reply-To: <bug-24406-10567@http.gcc.gnu.org/bugzilla/>
------- Comment #7 from tkoenig at gcc dot gnu dot org 2006-02-06 20:33 -------
Note that http://www.netlib.org/blas/d1mach.f has code
INTEGER SMALL(2)
INTEGER LARGE(2)
INTEGER RIGHT(2)
INTEGER DIVER(2)
INTEGER LOG10(2)
INTEGER SC, CRAY1(38), J
COMMON /D9MACH/ CRAY1
SAVE SMALL, LARGE, RIGHT, DIVER, LOG10, SC
DOUBLE PRECISION DMACH(5)
EQUIVALENCE (DMACH(1),SMALL(1))
EQUIVALENCE (DMACH(2),LARGE(1))
EQUIVALENCE (DMACH(3),RIGHT(1))
EQUIVALENCE (DMACH(4),DIVER(1))
EQUIVALENCE (DMACH(5),LOG10(1))
...
IF (SC .NE. 987) THEN
DMACH(1) = 1.D13
IF ( SMALL(1) .EQ. 1117925532
* .AND. SMALL(2) .EQ. -448790528) THEN
* *** IEEE BIG ENDIAN ***
SMALL(1) = 1048576
SMALL(2) = 0
LARGE(1) = 2146435071
LARGE(2) = -1
RIGHT(1) = 1017118720
RIGHT(2) = 0
DIVER(1) = 1018167296
DIVER(2) = 0
LOG10(1) = 1070810131
LOG10(2) = 1352628735
So, if we don't support this extension, we will potentially break BLAS
(at least the vanilla version distributed with netlib).
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24406
next prev parent reply other threads:[~2006-02-06 20:33 UTC|newest]
Thread overview: 20+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-10-17 11:10 [Bug fortran/24406] New: " mick at nag dot co dot uk
2005-10-17 11:29 ` [Bug fortran/24406] " pinskia at gcc dot gnu dot org
2005-10-17 11:30 ` pinskia at gcc dot gnu dot org
2005-10-17 18:01 ` kargl at gcc dot gnu dot org
2005-10-17 18:01 ` kargl at gcc dot gnu dot org
2005-10-23 22:52 ` pinskia at gcc dot gnu dot org
2005-11-01 20:20 ` tobi at gcc dot gnu dot org
2006-02-06 20:33 ` tkoenig at gcc dot gnu dot org [this message]
2006-02-06 20:56 ` [Bug rtl-optimization/24406] " tobi at gcc dot gnu dot org
2006-02-06 20:57 ` sgk at troutmask dot apl dot washington dot edu
2006-02-06 21:01 ` [Bug fortran/24406] " pinskia at gcc dot gnu dot org
2006-03-03 10:08 ` paul dot richard dot thomas at cea dot fr
2006-03-06 21:03 ` pinskia at gcc dot gnu dot org
2006-03-07 7:28 ` paul dot richard dot thomas at cea dot fr
2006-03-23 1:06 ` pinskia at gcc dot gnu dot org
2006-03-23 8:06 ` paul dot richard dot thomas at cea dot fr
2006-03-23 14:54 ` Andrew Pinski
2006-03-23 14:54 ` pinskia at physics dot uc dot edu
2006-04-23 6:07 ` pault at gcc dot gnu dot org
2006-04-24 10:13 ` mick at nag dot co dot uk
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=20060206203338.14582.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).