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
