https://gcc.gnu.org/bugzilla/show_bug.cgi?id=126391
Bug ID: 126391
Summary: ICE during RTL pass: expand: in expand_expr_real_1, at
expr.cc:11729
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: ---
test.cob:69:12: internal compiler error: in expand_expr_real_1, at
expr.cc:11729
69 | COMPUTE WS-BETR = WS-BETRV +
| ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
70 | (((WS-BETRB - WS-BETRV) * WS-TAGE) / WS-TAGEG)
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
71 | ON SIZE ERROR MOVE 0 TO WS-BETR.
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
0x26bf075 internal_error(char const*, ...)
/home/so/gcc-cobol/gcc/diagnostic-global-context.cc:787
0xa5cdf5 fancy_abort(char const*, int, char const*)
/home/so/gcc-cobol/gcc/diagnostics/context.cc:1813
0xd46465 expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
/home/so/gcc-cobol/gcc/expr.cc:11723
0xd52bcb expand_expr(tree_node*, rtx_def*, machine_mode, expand_modifier)
/home/so/gcc-cobol/gcc/expr.h:323
0xd52bcb expand_assignment(tree_node*, tree_node*, bool)
/home/so/gcc-cobol/gcc/expr.cc:6461
0xc10e85 expand_call_stmt
/home/so/gcc-cobol/gcc/cfgexpand.cc:3206
0xc10e85 expand_gimple_stmt_1
/home/so/gcc-cobol/gcc/cfgexpand.cc:4246
0xc10e85 expand_gimple_stmt
/home/so/gcc-cobol/gcc/cfgexpand.cc:4393
0xc17307 expand_gimple_basic_block
/home/so/gcc-cobol/gcc/cfgexpand.cc:6510
0xc1909f execute
/home/so/gcc-cobol/gcc/cfgexpand.cc:7258
result from compiling with this definition
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.
