[Bug fortran/15973] New: ICE in trans-types.c

["Mart dot Rentmeester at nn-online dot org" <gcc-bugzilla at gcc dot gnu dot org>]

This code generates an ICE as can be seen in the diagnostics.
It appears to be caused by the common block line that is longer
than 72 characters in fixed-source form (free source .f95 version
is accepted). The last variable in the list is truncated and
due to the implicit none line (removing that one will make it
compile) not declared. An error message should be given; the
whole compiler dieing is a bit too much ... :)



troogle> gfortran -c -v n19.f
Reading specs from /OPT/32/gcc-2004-06-09/lib/gcc/hppa2.0w-hp-hpux11.11/3.5.
0/specs
Configured with: ../configure --enable-languages=c,f95 
--prefix=/opt32/gcc-2004-06-09 --with-gmp=/opt32/gmp --with-gnu-as 
--with-as=/opt32/binutils/bin/as --enable-threads --disable-shared --disable-nls
Thread model: posix
gcc version 3.5.0 20040611 (experimental)
 /OPT/32/gcc-2004-06-09/libexec/gcc/hppa2.0w-hp-hpux11.11/3.5.0/f951 n19.f 
-ffixed-form -quiet -dumpbase n19.f -auxbase n19 -version -o /var/tmp//ccO3CMQ8.
s
GNU F95 version 3.5.0 20040611 (experimental) (hppa2.0w-hp-hpux11.11)
        compiled by GNU C version 3.5.0 20040611 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
n19.f: In function `test':
n19.f:1: internal compiler error: in gfc_typenode_for_spec, at 
fortran/trans-types.c:310

 

      subroutine test

      implicit none
      integer ngr,nfloat,nernrm,nextra,nzur,nexppp,nexpnp
      common/rommel/ngr(2),nfloat(2),nernrm(2),nextra(2),nzur,nexppp,nexpnp

      end subroutine test

-- 
           Summary: ICE in trans-types.c
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Mart dot Rentmeester at nn-online dot org
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15973