[Bug fortran/88908] New: [9 Regression] ICE in tree check: expected tree that contains ‘decl common’ structure, have ‘indirect_ref’ in gfc_conv_gfc_desc_to_cfi_desc, at fortran/trans-expr.c:4927

[marxin at gcc dot gnu.org]

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

            Bug ID: 88908
           Summary: [9 Regression] ICE in tree check: expected tree that
                    contains ‘decl common’ structure, have ‘indirect_ref’
                    in gfc_conv_gfc_desc_to_cfi_desc, at
                    fortran/trans-expr.c:4927
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: marxin at gcc dot gnu.org
  Target Milestone: ---

Created attachment 45463
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=45463&action=edit
test-case

It's reduced from mvapich2 package. Unfortunately one needs 2 Fortran modules:

$ gfortran accumulate_f08ts.f90 -I. -O3 -c
accumulate_f08ts.f90:39:0:

   39 |             target_disp, target_count, target_datatype%MPI_VAL,
op%MPI_VAL, win%MPI_VAL)
      | 
internal compiler error: tree check: expected tree that contains ‘decl common’
structure, have ‘indirect_ref’ in gfc_conv_gfc_desc_to_cfi_desc, at
fortran/trans-expr.c:4927
0x6f1f4c tree_contains_struct_check_failed(tree_node const*,
tree_node_structure_enum, char const*, int, char const*)
        /home/marxin/Programming/gcc/gcc/tree.c:9983
0x5e1447 contains_struct_check(tree_node*, tree_node_structure_enum, char
const*, int, char const*)
        /home/marxin/Programming/gcc/gcc/tree.h:3290
0x5e1447 gfc_conv_gfc_desc_to_cfi_desc
        /home/marxin/Programming/gcc/gcc/fortran/trans-expr.c:4927
0x8af782 gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*,
gfc_expr*, vec<tree_node*, va_gc, vl_embed>*)
        /home/marxin/Programming/gcc/gcc/fortran/trans-expr.c:5785
0x8b1f6a gfc_conv_expr(gfc_se*, gfc_expr*)
        /home/marxin/Programming/gcc/gcc/fortran/trans-expr.c:8228
0x8bb3e3 gfc_trans_assignment_1
        /home/marxin/Programming/gcc/gcc/fortran/trans-expr.c:10437
0x877577 trans_code
        /home/marxin/Programming/gcc/gcc/fortran/trans.c:1822
0x8edb73 gfc_trans_if_1
        /home/marxin/Programming/gcc/gcc/fortran/trans-stmt.c:1448
0x8f68aa gfc_trans_if(gfc_code*)
        /home/marxin/Programming/gcc/gcc/fortran/trans-stmt.c:1479
0x877447 trans_code
        /home/marxin/Programming/gcc/gcc/fortran/trans.c:1910
0x8a3f15 gfc_generate_function_code(gfc_namespace*)
        /home/marxin/Programming/gcc/gcc/fortran/trans-decl.c:6526
0x82b58e translate_all_program_units
        /home/marxin/Programming/gcc/gcc/fortran/parse.c:6134
0x82b58e gfc_parse_file()
        /home/marxin/Programming/gcc/gcc/fortran/parse.c:6337
0x8745af gfc_be_parse_file
        /home/marxin/Programming/gcc/gcc/fortran/f95-lang.c:204

Hope it will be possible to reproduce without source code of the modules.