https://gcc.gnu.org/bugzilla/show_bug.cgi?id=126951
Bug ID: 126951
Summary: cobol ice: parser_compute: parameter ‘tgt->field’ is
variable _stack120<FldNumericBin5> with NULL
‘var_decl_node’
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: ---
note that this is relative new (like less than 2 weeks old)
internal compiler error: parser_compute: parameter ‘tgt->field’ is variable
_stack120<FldNumericBin5> with NULL ‘var_decl_node’
766 | COMPUTE Z-IND = Z-IND + 1.
| ^~~~~~~~~~~~~~~~~~~~~~~~~~
0x2743f10 emit_diagnostic_valist(diagnostics::kind, unsigned long,
diagnostics::option_id, char const*, __va_list_tag (*) [1])
/home/so/gcc-cobol/gcc/diagnostic-global-context.cc:135
0xbc1616 cbl_internal_error(char const*, ...)
/home/so/gcc-cobol/gcc/cobol/util.cc:3893
0xaf3070 parser_compute(cbl_refer_t*, std::deque<rpn_t, std::allocator<rpn_t> >
const&, cbl_label_t*)
/home/so/gcc-cobol/gcc/cobol/genmath.cc:2397
0xaf3323 parser_compute(std::vector<cbl_num_result_t,
std::allocator<cbl_num_result_t> >&, std::deque<rpn_t, std::allocator<rpn_t> >
const&, cbl_label_t*, cbl_label_t*, cbl_label_t*)
/home/so/gcc-cobol/gcc/cobol/genmath.cc:2508
0xb3bc6e yyparse()
/home/so/gcc-cobol/gcc/cobol/parse.y:6308
0xbc7254 parse_file
/home/so/gcc-cobol/gcc/cobol/util.cc:3825
0xbc7254 cobol_parse_files(int, char const**)
/home/so/gcc-cobol/gcc/cobol/util.cc:3880
not sure if the line numbers are off... as the variable definition is as easy
as he COMPUTEstatement
01 Z-IND PIC 9(02) VALUE 0.
