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]$
