https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90519
G. Steinmetz <gs...@t-online.de> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |gs...@t-online.de --- Comment #2 from G. Steinmetz <gs...@t-online.de> --- One possible simplification might be this legal code : $ cat z1.f90 module m type t contains final :: g end type type t2 type(t) :: a type(t2), allocatable :: b(:) end type contains subroutine g(x) type(t) :: x end end $ gfortran-10-20190825 -c z1.f90 during RTL pass: expand z1.f90:14:0: 14 | end | internal compiler error: Segmentation fault 0xb3acef crash_signal ../../gcc/toplev.c:326 0x87d5ca expand_expr_real(tree_node*, rtx_def*, machine_mode, expand_modifier, rtx_def**, bool) ../../gcc/expr.c:8273 0x78393e expand_expr ../../gcc/expr.h:281 0x78393e expand_call_stmt ../../gcc/cfgexpand.c:2731 0x78393e expand_gimple_stmt_1 ../../gcc/cfgexpand.c:3710 0x78393e expand_gimple_stmt ../../gcc/cfgexpand.c:3875 0x7884c7 expand_gimple_basic_block ../../gcc/cfgexpand.c:5915 0x78ab66 execute ../../gcc/cfgexpand.c:6538