https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77782
Bug ID: 77782 Summary: ICE in gfc_get_union_type, at fortran/trans-types.c:2387 Product: gcc Version: 7.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gerhard.steinmetz.fort...@t-online.de Target Milestone: --- Together with option -fdec : $ cat z1.f90 program p structure /s1/ union map integer(4) a end map map real(4) b end map end union end structure structure /s2/ union map integer(2) x, y integer(4) z end map end union end structure record /s1/ r1 r1.a = 0 end $ gfortran-7-20160925 -fdec z1.f90 z1.f90:1:0: program p internal compiler error: in gfc_get_union_type, at fortran/trans-types.c:2387 0x7b79a6 gfc_get_union_type(gfc_symbol*) ../../gcc/fortran/trans-types.c:2387 0x7b7d88 gfc_copy_dt_decls_ifequal(gfc_symbol*, gfc_symbol*, bool) ../../gcc/fortran/trans-types.c:2325 0x7b7445 gfc_get_derived_type(gfc_symbol*, bool) ../../gcc/fortran/trans-types.c:2730 0x7b7b8c gfc_typenode_for_spec(gfc_typespec*, bool) ../../gcc/fortran/trans-types.c:1110 0x7b5bb3 gfc_sym_type(gfc_symbol*) ../../gcc/fortran/trans-types.c:2167 0x74eaa4 gfc_get_symbol_decl(gfc_symbol*) ../../gcc/fortran/trans-decl.c:1640 0x7526e7 generate_local_decl ../../gcc/fortran/trans-decl.c:5313 0x70df2b do_traverse_symtree ../../gcc/fortran/symbol.c:3963 0x753542 generate_local_vars ../../gcc/fortran/trans-decl.c:5513 0x753542 gfc_generate_function_code(gfc_namespace*) ../../gcc/fortran/trans-decl.c:6192 0x6de170 translate_all_program_units ../../gcc/fortran/parse.c:5940 0x6de170 gfc_parse_file() ../../gcc/fortran/parse.c:6146 0x720d82 gfc_be_parse_file ../../gcc/fortran/f95-lang.c:198