[Bug cobol/126951] New: cobol ice: pars er_compute: parameter ‘tgt->field’ is var iable _stack120<FldNumericBin5> with NULL ‘ var_decl_node’

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.