[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" <[email protected]>
| Newsgroups | gmane.comp.gcc.bugs |
|---|---|
| Message-ID | <[email protected]/bugzilla/> |
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.