------- Comment #3 from hjl dot tools at gmail dot com 2009-02-11 20:59 -------
A testcase:
[...@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
[...@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.
[...@gnu-27 Docs]$
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39152
