[Bug fortran/57639] [OOP] ICE with polymorphism (and illegal code)

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57639

--- Comment #2 from janus at gcc dot gnu.org ---
Btw, the following variant ...


  implicit none
  class(*) :: t1, t2
  print *, SAME_TYPE_AS (t1, t2)
end 


... gives a different backtrace:


f951: internal compiler error: Segmentation fault
0x8a8cbf crash_signal
        /home/janus/gcc49/trunk/gcc/toplev.c:333
0x5a89f0 gfc_type_compatible(gfc_typespec*, gfc_typespec*)
        /home/janus/gcc49/trunk/gcc/fortran/symbol.c:4497
0x59afa2 gfc_simplify_same_type_as(gfc_expr*, gfc_expr*)
        /home/janus/gcc49/trunk/gcc/fortran/simplify.c:2300
0x5413a1 do_simplify
        /home/janus/gcc49/trunk/gcc/fortran/intrinsic.c:3962
0x54df85 gfc_intrinsic_func_interface(gfc_expr*, int)
        /home/janus/gcc49/trunk/gcc/fortran/intrinsic.c:4318
0x588af4 resolve_unknown_f
        /home/janus/gcc49/trunk/gcc/fortran/resolve.c:2680