[Bug fortran/78297] New: ICE in finish_equivalences, at fortran/trans-common.c:1246

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78297

            Bug ID: 78297
           Summary: ICE in finish_equivalences, at
                    fortran/trans-common.c:1246
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Gives an ICE down to at least 4.8 :


$ cat z1.f90
module m
   real :: a(2), b(2)
   real :: c(2), d(2)
   equivalence (a, b)
   equivalence (c, d)
   common /xcom/ a
end
block data
   use m
end block data


$ gfortran-7-20161106 -c z1.f90
z1.f90:10:0:

 end block data

internal compiler error: Segmentation fault
0xc3a64f crash_signal
        ../../gcc/toplev.c:338
0x747490 finish_equivalences
        ../../gcc/fortran/trans-common.c:1246
0x747490 gfc_trans_common(gfc_namespace*)
        ../../gcc/fortran/trans-common.c:1289
0x74d1b0 gfc_generate_block_data(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6524
0x6e2133 gfc_parse_file()
        ../../gcc/fortran/parse.c:6102
0x725822 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198