[Bug fortran/39594] compiler falls over in gfc_get_symbol_decl

["dominiq at lps dot ens dot fr" <gcc-bugzilla@gcc.gnu.org>]

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