------- Comment #2 from dominiq at lps dot ens dot fr 2009-03-31 10:06 -------
Confirmed for gfortran 4.4 and trunk, works on 4.3. Reduced test case:
module df_f12_integrals
implicit double precision (a-h,o-z)
save
c
parameter (maxint=2147483647)
common/zahl/ z0,z1,z2,z4,z05,z10h6,z10hm8,z10m12
CONTAINS
c-----------------------------------------------------------------------
subroutine dfasmbl_f12(nibatch,numbti,lenbta,lenbtc,
> namout,ifout,offset,iaddmat,fac,
> cpu_asmbl,flops_asmbl,title)
c-----------------------------------------------------------------------
implicit double precision (a-h,o-z)
c
parameter (maxint=2147483647)
common/zahl/ z0,z1,z2,z4,z05,z10h6,z10hm8,z10m12
if(icase.gt.1) call writem_big(g,leng,ifout,namout,z0,'EX')
end subroutine dfasmbl_f12
end
[ibook-dhum] Downloads/gfortranbug% gfc44 -c dfasmbl_f12_no.f
dfasmbl_f12_no.f: In function 'dfasmbl_f12':
dfasmbl_f12_no.f:11: internal compiler error: in gfc_get_symbol_decl, at
fortran/trans-decl.c:950
If one of the COMMON or IF lines is commented, the ICE disappears.
Next time please take some time to do the reduction yourself.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39594
