This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
middle-end/5731: g77 SIGSEGVs on simple routine mixing complex, real arithmetic (from BLAS)
- From: toon at moene dot indiv dot nluug dot nl
- To: gcc-gnats at gcc dot gnu dot org
- Date: 19 Feb 2002 22:24:23 -0000
- Subject: middle-end/5731: g77 SIGSEGVs on simple routine mixing complex, real arithmetic (from BLAS)
- Reply-to: toon at moene dot indiv dot nluug dot nl
>Number: 5731
>Category: middle-end
>Synopsis: g77 SIGSEGVs on simple routine mixing complex, real arithmetic (from BLAS)
>Confidential: no
>Severity: serious
>Priority: high
>Responsible: unassigned
>State: open
>Class: ice-on-legal-code
>Submitter-Id: net
>Arrival-Date: Tue Feb 19 14:26:00 PST 2002
>Closed-Date:
>Last-Modified:
>Originator: Toon Moene
>Release: 3.1-20020219, regression w.r.t. 3.0.3
>Organization:
>Environment:
i686-pc-linux-gnu, alpha-unknown-linux-gnu,
powerpc-unknown-linux-gnu
>Description:
g77 -O -ffast-math SIGSEGVs on:
subroutine crotg(ca,cb,c,s)
complex ca,cb,s
real c
real norm,scale
complex alpha
if (cabs(ca) .ne. 0.) go to 10
c = 0.
s = (1.,0.)
ca = cb
go to 20
10 continue
scale = cabs(ca) + cabs(cb)
norm = scale * sqrt((cabs(ca/scale))**2 + (cabs(cb/scale))**2)
alpha = ca /cabs(ca)
c = cabs(ca) / norm
s = alpha * conjg(cb) / norm
ca = alpha * norm
20 continue
return
end
>How-To-Repeat:
>Fix:
>Release-Note:
>Audit-Trail:
>Unformatted: