G77 internal compiler error

[Jason Lassaline <jason at oddjob dot utias dot utoronto dot ca>]

Hi.
I've encountered a bug when compiling the LAPACK distribution
on an SGI mips4 processor with g77.  Here is the appropriate info for the
file in question:

g77 version 2.95.1 19990816 (release) (from FSF-g77 version 0.5.25 19990816 (release))
Reading specs from /usr/local/lib/gcc-lib/mips-sgi-irix6.4/2.95.1/specs
gcc version 2.95.1 19990816 (release)
 /usr/local/lib/gcc-lib/mips-sgi-irix6.4/2.95.1/f771 lsamen.f -quiet -dumpbase lsamen.f -mips4 -O3 -version -fversion -funroll-all-loops -fno-f2c -o lsamen.s
GNU F77 version 2.95.1 19990816 (release) (mips-sgi-irix6.4) compiled by GNU C version 2.95.1 19990816 (release).
GNU Fortran Front End version 0.5.25 19990816 (release)
lsamen.f: In function `lsamen':
lsamen.f:48: Internal compiler error in `copy_to_mode_reg', at explow.c:669
Please submit a full bug report.
See <URL:http://www.gnu.org/software/gcc/faq.html#bugreport> for instructions.

I've attached lsamen.f and lsamen.s in the event that they might be
useful.

Thanx.
                                      Jason Lassaline
-----------------------------------------------------
Aerospace Engineering -- Computational Fluid Dynamics
University of Toronto Institute for Aerospace Studies
=====================================================
"I'd give my right arm to be ambidextrous."-Graffitti
                               

      LOGICAL          FUNCTION LSAMEN( N, CA, CB )
*
*  -- LAPACK auxiliary routine (version 3.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
	#.file	1 "lsamen.f"
	.set	nobopt
	.option pic2
	.section	.text