[Bug cobol/126389] New: ICE: tree check: expected tree that contains 'decl common' structure, have 'component_ref' in mh_identical

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

            Bug ID: 126389
           Summary: ICE: tree check: expected tree that contains 'decl
                    common' structure, have 'component_ref' in
                    mh_identical
           Product: gcc
           Version: 17.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: cobol
          Assignee: unassigned at gcc dot gnu.org
          Reporter: simonsobisch at gnu dot org
  Target Milestone: ---

While I can't share a reproducer I can share the issue:


cobol1: internal compiler error: tree check: expected tree that contains 'decl
common' structure, have 'component_ref' in mh_identical, at cobol/move.cc:191
0x26bf075 internal_error(char const*, ...)
        /home/so/gcc-cobol/gcc/diagnostic-global-context.cc:787
0x8ca9bf tree_contains_struct_check_failed(tree_node const*,
tree_node_structure_enum, char const*, int, char const*)
        /home/so/gcc-cobol/gcc/tree.cc:9390
0x794dd5 contains_struct_check(tree_node*, tree_node_structure_enum, char
const*, int, char const*)
        /home/so/gcc-cobol/gcc/tree.h:3956
0x794dd5 mh_identical
        /home/so/gcc-cobol/gcc/cobol/move.cc:191
0x794dd5 move_helper(tree_node*, cbl_refer_t, cbl_refer_t, TREEPLET&,
cbl_round_t, bool, bool)
        /home/so/gcc-cobol/gcc/cobol/move.cc:3390
0xaf7466 parser_move_multi
        /home/so/gcc-cobol/gcc/cobol/move.cc:3762
0xaf7466 parser_move(unsigned long, cbl_refer_t*, cbl_refer_t, cbl_round_t)
        /home/so/gcc-cobol/gcc/cobol/move.cc:3789
0xb0ae16 parser_move_carefully
        /home/so/gcc-cobol/gcc/cobol/parse_ante.h:3459
0xb2007a yyparse()
        /home/so/gcc-cobol/gcc/cobol/parse.y:7731
0xbaccd4 parse_file
        /home/so/gcc-cobol/gcc/cobol/util.cc:3830
0xbaccd4 cobol_parse_files(int, char const**)
        /home/so/gcc-cobol/gcc/cobol/util.cc:3885