[Bug fortran/77764] New: ICE in is_anonymous_component, at fortran/interface.c:450

["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=77764

            Bug ID: 77764
           Summary: ICE in is_anonymous_component, at
                    fortran/interface.c:450
           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: ---

Needs option -fdec, affects version 6 and 7 :


$ cat z1.f90
program p
   structure /s1/
      union
         map
         end map
         map
            real :: a = 2.0
         end map
      end union
   end structure
end


$ gfortran-7-20160925 -fdec z1.f90
f951: internal compiler error: Segmentation fault
0xc28c9f crash_signal
        ../../gcc/toplev.c:337
0x692c10 is_anonymous_component
        ../../gcc/fortran/interface.c:450
0x69464a compare_components
        ../../gcc/fortran/interface.c:479
0x6947aa gfc_compare_union_types(gfc_symbol*, gfc_symbol*)
        ../../gcc/fortran/interface.c:552
0x68f3e2 gfc_check_assign(gfc_expr*, gfc_expr*, int, bool)
        ../../gcc/fortran/expr.c:3290
0x692029 gfc_check_assign_symbol(gfc_symbol*, gfc_component*, gfc_expr*)
        ../../gcc/fortran/expr.c:3869
0x6f8c84 resolve_component
        ../../gcc/fortran/resolve.c:13349
0x6f9a72 resolve_fl_struct
        ../../gcc/fortran/resolve.c:13405
0x6f4807 resolve_symbol
        ../../gcc/fortran/resolve.c:13850
0x70df2b do_traverse_symtree
        ../../gcc/fortran/symbol.c:3963
0x6f782a resolve_types
        ../../gcc/fortran/resolve.c:15644
0x6f346c gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:15757
0x6ddf9a resolve_all_program_units
        ../../gcc/fortran/parse.c:5879
0x6ddf9a gfc_parse_file()
        ../../gcc/fortran/parse.c:6131
0x720d82 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198