When compiled with -std=f2003 gfortran.dg/typebound_proc_16.f03 yields an ICE:
/opt/gcc/work/gcc/testsuite/gfortran.dg/typebound_proc_16.f03:18.49:
PROCEDURE,PRIVATE :: rat_asgn_i, rat_plus_rat, rat_plus_i
1
Error: Fortran 2008: PROCEDURE list at (1)
/opt/gcc/work/gcc/testsuite/gfortran.dg/typebound_proc_16.f03:22.29:
GENERIC :: OPERATOR(+) => rat_plus_rat, rat_plus_i, i_plus_rat
1
Error: Undefined specific binding 'rat_plus_i' as target of GENERIC '+' at (1)
f951: internal compiler error: Segmentation fault
Backtrace:
Program received signal EXC_BAD_ACCESS, Could not access memory.
Reason: KERN_INVALID_ADDRESS at address: 0x0000007fffffffff
gfc_check_operator_interface (sym=0x14190af40, op=INTRINSIC_ASSIGN,
opwhere={nextc = 0x14191336c, lb = 0x1419132d0}) at
../../work/gcc/fortran/interface.c:572
572 gfc_symbol *fsym = formal->sym;
(gdb) bt
#0 gfc_check_operator_interface (sym=0x14190af40, op=INTRINSIC_ASSIGN,
opwhere={nextc = 0x14191336c, lb = 0x1419132d0}) at
../../work/gcc/fortran/interface.c:572
#1 0x00000001000823e2 in resolve_fl_derived (sym=0x1419166a0) at
../../work/gcc/fortran/resolve.c:10427
#2 0x0000000100081eb9 in resolve_fl_derived (sym=0x141917200) at
../../work/gcc/fortran/resolve.c:10842
#3 0x0000000100080268 in resolve_symbol (sym=0x141917200) at
../../work/gcc/fortran/resolve.c:11506
#4 0x0000000100093d70 in traverse_ns (st=<value temporarily unavailable, due
to optimizations>, func=0x10007f9e0 <resolve_symbol>) at
../../work/gcc/fortran/symbol.c:3357
#5 0x0000000100093d5e in traverse_ns (st=<value temporarily unavailable, due
to optimizations>, func=0x10007f9e0 <resolve_symbol>) at
../../work/gcc/fortran/symbol.c:3354
#6 0x000000010007e0c5 in resolve_types (ns=0x142036600) at
../../work/gcc/fortran/resolve.c:12971
#7 0x0000000100077310 in gfc_resolve (ns=0x142036600) at
../../work/gcc/fortran/resolve.c:13067
#8 0x000000010006b2d3 in gfc_parse_file () at
../../work/gcc/fortran/parse.c:4392
#9 0x00000001000a51ec in gfc_be_parse_file (set_yydebug=<value temporarily
unavailable, due to optimizations>) at ../../work/gcc/fortran/f95-lang.c:241
#10 0x000000010069a18a in toplev_main (argc=3, argv=0x7fff5fbfd958) at
../../work/gcc/toplev.c:945
#11 0x0000000100001814 in start ()
--
Summary: ICE on gfortran.dg/typebound_proc_16.f03 with -std=f2003
Product: gcc
Version: 4.6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: dominiq at lps dot ens dot fr
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45161
