This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
egcs-200000511 i686-pc-linux-gnu g77 ICE on -Os
- To: gcc-bugs at gcc dot gnu dot org
- Subject: egcs-200000511 i686-pc-linux-gnu g77 ICE on -Os
- From: N8TM at aol dot com
- Date: Thu, 11 May 2000 19:27:50 EDT
The attached reduced version of a subroutine from LAPACK fails with this
version but not with gc-2.95.2.
/usr/local/bin/g77 -pipe -Os -c test.f
test.f: In subroutine `sorg2r':
test.f:44: Internal compiler error in `verify_wide_reg_1', at flow.c:2596
Please submit a full bug report.
See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions.
make: *** [test.o] Error 1
Tim
tprince@computer.org
subroutine sorg2r(m,n,k,a,lda,tau,work,info)
C
C -- LAPACK routine (version 3.0) --
C Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
C Courant Institute, Argonne National Lab, and Rice University
C February 29, 1992
C
C .. Scalar Arguments ..
integer info,k,lda,m,n
C ..
C .. Array Arguments ..
real a(lda,*),tau(*),work(*)
C ..
C
C Purpose
C =======
C
C show following compiler error:
C g77 version 2.96 20000511
C /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.96/f771
C test.f -quiet -dumpbase test.f -Os -version -fversion -o - |
C test.f: In subroutine `sorg2r':
C test.f:44: Internal compiler error in `verify_wide_reg_1', at flow.c:2596
C Please submit a full bug report.
C See <URL:http://www.gnu.org/software/gcc/bugs.html> for instructions.
C
C =====================================================================
C
C .. Parameters ..
real one,zero
parameter(one= 1.0e+0,zero= 0.0e+0)
C ..
C .. Local Scalars ..
integer i,j,l
C ..
C .. External Subroutines ..
externalslarf,sscal,xerbla
C ..
C .. Executable Statements ..
C
C Test the input arguments
C
do i= k,1,-1
C
C Apply H(i) to A(i:m,i:n) from the left
C
if(i < m)then
call sscal(m-i,-tau(i),a(i+1,i),1)
endif
a(i,i)= one-tau(i)
enddo
return
end