middle-end/5731: g77 SIGSEGVs on simple routine mixing complex, real arithmetic (from BLAS)

[toon@moene.indiv.nluug.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: