------- Comment #3 from hjl dot tools at gmail dot com  2009-02-11 20:59 -------
A testcase:

[hjl@gnu-27 Docs]$ cat /tmp/x.f
      SUBROUTINE CASHES(E,HESS,FC,FA,NORB,NPR)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (MXAO=2047)
      DIMENSION HESS(NPR),E(NORB,*),FC(*),FA(*)
      COMMON /IJPAIR/ IA(MXAO)
      COMMON /MCPAR / NFZC,NCORBS,NCI,NORBS,NORBX,NUM
      K=0
      DO 200 IU = 1,NORB - NCORBS
         I = IU + NCORBS
         II=IA(I)+I
         DO 100 J = 1,NCORBS
            IF (I.GT.NORBS) THEN
               HESS(K)=FC(II) + FA(II) - E(J,J)
            ELSE
               HESS(K)=FA(II) - E(I,I) - E(J,J) + FC(JJ) + FA(JJ)
            END IF
  100    CONTINUE
  200 CONTINUE
      RETURN
      END
[hjl@gnu-27 Docs]$ /export/gnu/import/rrs/144098/usr/bin/gfortran -m32 -S -O2
-msse2 -mfpmath=sse -ffast-math         -ffixed-form /tmp/x.f
/tmp/x.f: In function ‘cashes’:
/tmp/x.f:19: error: unrecognizable insn:
(insn 178 144 179 4 /tmp/x.f:10 (set (reg/v:SI 4 si [orig:73 ii ] [73])
        (mem/s:SI (plus:SI (ashift:SI (reg:SI 3 bx)
                    (const_int 2 [0x2]))
                (const:SI (plus:SI (symbol_ref:SI ("ijpair_") <var_decl
0x2b73b1ef0aa0 ijpair>)
                        (const_int -4 [0xfffffffffffffffc])))) [3 ijpair.ia S4
A32])) -1 (nil))
/tmp/x.f:19: internal compiler error: in extract_insn, at recog.c:2038
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
[hjl@gnu-27 Docs]$ 


-- 


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