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

[simonsobisch at gnu dot org via Gcc-bugs]

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

--- Comment #1 from Simon Sobisch <simonsobisch at gnu dot org> ---
minimized example:

       PROGRAM-ID. bug.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  MY-ADR-C             PIC S9(18) COMP-5.
       01  MY-ADR-POINT REDEFINES MY-ADR-C POINTER.
       01  SOMEVAR              PIC  X.
       LINKAGE SECTION.
       01  KEYREC.
          10 KEYNAME          PIC  X.
       PROCEDURE DIVISION.
       buggy SECTION.
           SET ADDRESS OF KEYREC TO MY-ADR-POINT.
           MOVE KEYNAME TO SOMEVAR.
      *
           GOBACK.