g77 - mips-sgi-irix6.2 - Internal compiler error in function copy_to_mode_reg

[Billinghurst, David (RTD)]

Compiler: g77 from egcs-1.1a and egcs-19981019
OS: mips-sgi-irix6.2

When compiling the routine lsamen.f from LAPACK with -mabi=64 I get the
error 
/usr/local/imports/egcs-1.1a/gcc/explow.c:650: Internal compiler error in
function copy_to_mode_reg
Error occurs with -O0 -O1 and -O2

Command line: g77 -v -O0 -mabi=64 -c lsamen.f

Output from egcs-19981019

/usr/local/tmp/egcs-19981019/bin/g77 -v -O0 -mabi=64 -c
/usr/local/imports/LAPACK/SRC/lsamen.f
g77 version egcs-2.92.16 19981019 (gcc2 ss-980609 experimental) (from
FSF-g77 version 0.5.24-19980804)
Reading specs from
/usr/local/tmp/egcs-19981019/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.16/specs
gcc version egcs-2.92.16 19981019 (gcc2 ss-980609 experimental)
 /usr/local/tmp/egcs-19981019/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.92.16/f771
/usr/local/imports/LAPACK/SRC/lsamen.f -quiet -dumpbase lsamen.f -mabi=64
-O0 -version -fversion -o /var/tmp/cc2nBvQo.s
GNU F77 version egcs-2.92.16 19981019 (gcc2 ss-980609 experimental)
(mips-sgi-irix6.2) compiled by GNU C version egcs-2.92.16 19981019 (gcc2
ss-980609 experimental).
GNU Fortran Front End version 0.5.24-19980804
../../../src/egcs-19981019/gcc/explow.c:650: Internal compiler error in
function copy_to_mode_reg


Output from egcs-1.1a

g77 -v -O0 -mabi=64 -c /usr/local/imports/LAPACK/SRC/lsamen.f
g77 version egcs-2.91.57 19980901 (egcs-1.1 release) (from FSF-g77 version
0.5.24-19980804)
Reading specs from
/usr/local/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.91.57/specs
gcc version egcs-2.91.57 19980901 (egcs-1.1 release)
 /usr/local/lib/gcc-lib/mips-sgi-irix6.2/egcs-2.91.57/f771
/usr/local/imports/LAPACK/SRC/lsamen.f -quiet -dumpbase lsamen.f -mabi=64
-O0 -version -fversion -o /var/tmp/ccdUb57l.s
GNU F77 version egcs-2.91.57 19980901 (egcs-1.1 release) (mips-sgi-irix6.2)
compiled by GNU C version egcs-2.91.57 19980901 (egcs-1.1 release).
GNU Fortran Front End version 0.5.24-19980804
/usr/local/imports/egcs-1.1a/gcc/explow.c:650: Internal compiler error in
function copy_to_mode_reg

+++++++++++++++++++++++++++++++++++++++++
(Mr) David Billinghurst
Comalco Research and Technical Support
PO Box 316, Thomastown, Vic, Australia, 3074
Phone:	+61 3 9469 0642
FAX:	+61 3 9462 2700
Email:	David.Billinghurst@riotinto.com.au

 <<lsamen.f>> 
-------------- next part --------------
      LOGICAL          FUNCTION LSAMEN( N, CA, CB )
*
*  -- LAPACK auxiliary routine (version 2.0) --
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
*     Courant Institute, Argonne National Lab, and Rice University
*     September 30, 1994
*
*     .. Scalar Arguments ..
      CHARACTER*( * )    CA, CB
      INTEGER            N
*     ..
*
*  Purpose
*  =======
*
*  LSAMEN  tests if the first N letters of CA are the same as the
*  first N letters of CB, regardless of case.
*  LSAMEN returns .TRUE. if CA and CB are equivalent except for case
*  and .FALSE. otherwise.  LSAMEN also returns .FALSE. if LEN( CA )
*  or LEN( CB ) is less than N.
*
*  Arguments
*  =========
*
*  N       (input) INTEGER
*          The number of characters in CA and CB to be compared.
*
*  CA      (input) CHARACTER*(*)
*  CB      (input) CHARACTER*(*)
*          CA and CB specify two character strings of length at least N.
*          Only the first N characters of each string will be accessed.
*
* =====================================================================
*
*     .. Local Scalars ..
      INTEGER            I
*     ..
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          LEN
*     ..
*     .. Executable Statements ..
*
      LSAMEN = .FALSE.
      IF( LEN( CA ).LT.N .OR. LEN( CB ).LT.N )
     $   GO TO 20
*
*     Do for each character in the two strings.
*
      DO 10 I = 1, N
*
*        Test if the characters are equal using LSAME.
*
         IF( .NOT.LSAME( CA( I: I ), CB( I: I ) ) )
     $      GO TO 20
*
   10 CONTINUE
      LSAMEN = .TRUE.
*
   20 CONTINUE
      RETURN
*
*     End of LSAMEN
*
      END