[Bug fortran/65381] [7/8/9 Regression] ICE during array result, assignment

[gscfq@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65381

--- Comment #5 from G. Steinmetz <gscfq@t-online.de> ---

Further simplified, z3 without character :


$ cat z2.f90
module m
   type t
   end type
contains
   pure function g(x) result(z)
      class(t), intent(in) :: x(:)
      character :: z(size(x))
   end
   function f(x)
      type(t), intent(in) :: x(:)
      character(:), allocatable :: c(:)
      c(:) = g(x)
   end
end


$ cat z3.f90
module m
   type t
   end type
contains
   pure function g(x) result(z)
      class(t), intent(in) :: x(:)
      integer :: z(size(x))
   end
   function f(x)
      type(t), intent(in) :: x(:)
      integer, allocatable :: c(:)
      c = g(x)
   end
end


$ gfortran-9-20181118 -c z3.f90
z3.f90:12:0:

   12 |       c = g(x)
      |
internal compiler error: Segmentation fault
0xb2a03f crash_signal
        ../../gcc/toplev.c:325
0x6ea62b gfc_conv_component_ref
        ../../gcc/fortran/trans-expr.c:2426
0x6f1d2b gfc_conv_variable
        ../../gcc/fortran/trans-expr.c:2794
0x6eea0a gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8047
0x6f0fd0 gfc_conv_expr_lhs(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8077
0x6c77a8 gfc_conv_ss_descriptor
        ../../gcc/fortran/trans-array.c:2873
0x6d0b74 gfc_conv_expr_descriptor(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-array.c:7118
0x700481 gfc_conv_intrinsic_size
        ../../gcc/fortran/trans-intrinsic.c:7144
0x715ddb gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:9754
0x6fa394 gfc_conv_function_expr
        ../../gcc/fortran/trans-expr.c:6905
0x6ee9ea gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8039
0x6f0a4a gfc_apply_interface_mapping(gfc_interface_mapping*, gfc_se*,
gfc_expr*)
        ../../gcc/fortran/trans-expr.c:4451
0x6c6647 gfc_set_loop_bounds_from_array_spec(gfc_interface_mapping*, gfc_se*,
gfc_array_spec*)
        ../../gcc/fortran/trans-array.c:932
0x6f9795 gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
        ../../gcc/fortran/trans-expr.c:6122
0x6fa37c gfc_conv_function_expr
        ../../gcc/fortran/trans-expr.c:6928
0x6fb0fc gfc_trans_arrayfunc_assign
        ../../gcc/fortran/trans-expr.c:9462
0x6fea24 gfc_trans_assignment(gfc_expr*, gfc_expr*, bool, bool, bool, bool)
        ../../gcc/fortran/trans-expr.c:10585
0x6bfe8f trans_code
        ../../gcc/fortran/trans.c:1822
0x6e7754 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6509
0x6c3c19 gfc_generate_module_code(gfc_namespace*)
        ../../gcc/fortran/trans.c:2216