[Bug fortran/77782] New: ICE in gfc_get_union_type, at fortran/trans-types.c:2387

[gerhard.steinmetz.fortran@t-online.de]

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.fortran@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