[Bug cobol/126391] ICE during RTL pass: expand: in expand_expr_real_1, at expr.cc:11729

[rdubner at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #1 from Robert Dubner <rdubner at gcc dot gnu.org> ---
I need more.  I turned this bug report into this program:
```
        identification              division.
        program-id.                 prog.
        data                        division.
        working-storage             section.
        01  ws-betrv              pic s9(12)v9(03) comp-3 value 0.
        01  ws-betrb              pic s9(12)v9(03) comp-3 value 0.
        01  ws-tageg              pic s9(06).
        01  ws-tage               pic s9(06).
        01  ws-betr               pic s9(12)v9(03) comp-3 value 0.
        procedure                   division.
            COMPUTE WS-BETR = WS-BETRV + 
                (((WS-BETRB - WS-BETRV) * WS-TAGE) / WS-TAGEG)
                ON SIZE ERROR MOVE 0 TO WS-BETR
            goback.
        end program                 prog.
```
It compiles and runs without any error using my current development
environment.