[Bug fortran/102619] New: [10/11/12 Regression] ICE in gfc_conv_descriptor_dtype, at fortran/trans-array.c:215

[gscfq--- via Gcc-bugs]

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

            Bug ID: 102619
           Summary: [10/11/12 Regression] ICE in
                    gfc_conv_descriptor_dtype, at
                    fortran/trans-array.c:215
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Started with r9, changed between 20190310 and 20190331 :


$ cat z1.f90
program p
contains
   function f(x) result(z)
      real :: x(:)
      real, allocatable :: z(:)
      z = g(x)
   end
   function g(x)
      real :: x(..)
      real :: g(product(shape(x)))
   end
end


$ gfortran-9-20190310 -c z1.f90
$
$ gfortran-12-20211003 -c z1.f90
z1.f90:6:14:

    6 |       z = g(x)
      |              1
internal compiler error: in gfc_get_descriptor_field, at
fortran/trans-array.c:140
0x84b7e0 gfc_get_descriptor_field
        ../../gcc/fortran/trans-array.c:140
0x84ca2f gfc_conv_descriptor_dtype(tree_node*)
        ../../gcc/fortran/trans-array.c:215
0x84cab5 gfc_conv_descriptor_rank(tree_node*)
        ../../gcc/fortran/trans-array.c:249
0x8a3ac1 gfc_conv_intrinsic_shape
        ../../gcc/fortran/trans-intrinsic.c:6742
0x8a3ac1 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:10182
0x87956a gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:9066
0x858440 gfc_add_loop_ss_code
        ../../gcc/fortran/trans-array.c:3029
0x858ff5 gfc_conv_loop_setup(gfc_loopinfo*, locus*)
        ../../gcc/fortran/trans-array.c:5293
0x89cae0 gfc_conv_intrinsic_arith
        ../../gcc/fortran/trans-intrinsic.c:4931
0x8a4cc4 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:10694
0x87956a gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:9066
0x87ba1a gfc_apply_interface_mapping(gfc_interface_mapping*, gfc_se*,
gfc_expr*)
        ../../gcc/fortran/trans-expr.c:4874
0x84da17 gfc_set_loop_bounds_from_array_spec(gfc_interface_mapping*, gfc_se*,
gfc_array_spec*)
        ../../gcc/fortran/trans-array.c:949
0x886056 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:7140
0x8876dc gfc_trans_arrayfunc_assign
        ../../gcc/fortran/trans-expr.c:10541
0x88b3b4 gfc_trans_assignment(gfc_expr*, gfc_expr*, bool, bool, bool, bool)
        ../../gcc/fortran/trans-expr.c:11710
0x84ac37 trans_code
        ../../gcc/fortran/trans.c:1918
0x871974 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6905
0x871774 gfc_generate_contained_functions
        ../../gcc/fortran/trans-decl.c:5899
0x871774 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6837