[Bug fortran/15636] New: error generated by gfortran attempting to compile BLAS libraries (crotg.f)

[dtucker at arlut dot utexas dot edu]

I recently experienced a problem with the latest version of gfortran in 
attempting to compile the BLAS library portion of the latest version of LAPACK 
(lapack.tgz from http://www.netlib.org/lapack/).  I've attached the source file 
that generated the error, although I could find no associated *.i* file to also 
attach.

GCC -
[root@mordy SRC]# gfortran -v
Reading specs from /usr/local/gfortran-static/bin/../lib/gcc/i386-pc-linux-
gnu/3.5-tree-ssa/specs
Configured with: ../gcc/configure --prefix=/tmp/gfortran-static --enable-
languages=c,f95 --host=i386-pc-linux-gnu --target=i386-pc-linux-gnu
Thread model: posix
gcc version 3.5-tree-ssa 20030920 (merged 20030817)

System -
Red Hat Linux 8 (2.4.20-8)
Pentium III (Katmai)

Compiler options -
gfortran  -funroll-all-loops -O3 -x f95 -save-temps -c crotg.f

Compiler output -
[root@mordy LAPACK]# make blaslib
( cd BLAS/SRC; make )
make[1]: Entering directory `/usr/local/LAPACK/BLAS/SRC'
ar cr ../../blas_LINUX.a isamax.o sasum.o saxpy.o scopy.o sdot.o snrm2.o srot.o 
srotg.o sscal.o sswap.o lsame.o xerbla.o \
sgemv.o sgbmv.o ssymv.o ssbmv.o sspmv.o strmv.o stbmv.o stpmv.o strsv.o stbsv.o 
stpsv.o sger.o ssyr.o sspr.o ssyr2.o sspr2.o sgemm.o ssymm.o ssyrk.o ssyr2k.o 
strmm.o strsm.o 
ranlib ../../blas_LINUX.a
ar cr ../../blas_LINUX.a idamax.o dasum.o daxpy.o dcopy.o ddot.o dnrm2.o drot.o 
drotg.o dscal.o dswap.o lsame.o xerbla.o \
dgemv.o dgbmv.o dsymv.o dsbmv.o dspmv.o dtrmv.o dtbmv.o dtpmv.o dtrsv.o dtbsv.o 
dtpsv.o dger.o dsyr.o dspr.o dsyr2.o dspr2.o dgemm.o dsymm.o dsyrk.o dsyr2k.o 
dtrmm.o dtrsm.o
ranlib ../../blas_LINUX.a
gfortran  -funroll-all-loops -O3 -x f95 -save-temps -c crotg.f
crotg.f: In function `crotg':

crotg.f:19: internal compiler error: in get_value, at tree-ssa-ccp.c:1516
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
make[1]: *** [crotg.o] Error 1
make[1]: Leaving directory `/usr/local/LAPACK/BLAS/SRC'
make: *** [blaslib] Error 2

The source for crotg.f is below:
      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

-- 
           Summary: error generated by gfortran attempting to compile BLAS
                    libraries (crotg.f)
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dtucker at arlut dot utexas dot edu
                CC: dtucker at arlut dot utexas dot edu,gcc-bugs at gcc dot
                    gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15636