http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46259
H.J. Lu <hjl.tools at gmail dot com> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Last reconfirmed| |2010.11.01 16:33:38 Ever Confirmed|0 |1 --- Comment #7 from H.J. Lu <hjl.tools at gmail dot com> 2010-11-01 16:33:38 UTC --- [...@gnu-32 delta-fortran]$ cat testcase-min.f SUBROUTINE RDSTFR(FRGMNT,IFRAG,PROVEC,FOCKMA, * MXBF,MXMO,MXMO2,NTMOF) PARAMETER (MXPT=100, MXFRG=50, MXFGPT=MXPT*MXFRG) CHARACTER*8 WORD,MNAME,PNAME,RNAME COMMON /FRGSTD/ CORD(3,MXPT),PCORD(3,MXPT),POLT(9,MXPT), * INLPR(4*MXPT),IKFR(MXPT),IKLR(MXPT), * MNAME(MXPT),PNAME(MXPT),RNAME(MXPT) DO 10 I=1,MXPT INLPR(4*(I-1)+1)=0 INLPR(4*(I-1)+2)=0 INLPR(4*(I-1)+3)=0 INLPR(4*(I-1)+4)=0 IKLR(I)=0 RNAME(I)=' ' 10 CONTINUE END [...@gnu-32 delta-fortran]$ /export/gnu/import/rrs/166102/usr/bin/gcc -S -O3 -ffast-math -funroll-loops -ffixed-form -S testcase-min.f testcase-min.f: In function ‘rdstfr’: testcase-min.f:14:0: internal compiler error: tree check: expected integer_cst, have string_cst in tree_to_double_int, at tree.h:4020 Please submit a full bug report, with preprocessed source if appropriate. See <http://gcc.gnu.org/bugs.html> for instructions. [...@gnu-32 delta-fortran]$