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