[Bug cobol/126393] New: ICE: symbols_update: data item ... capacity rejected

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

            Bug ID: 126393
           Summary: ICE: symbols_update: data item ... capacity rejected
           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:24:1: internal compiler error: symbols_update: data item Alphanumeric
#850 'T01-BUCHSTABE' capacity 1 rejected
0x26bac90 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
0xba7076 cbl_internal_error(char const*, ...)
        /home/so/gcc-cobol/gcc/cobol/util.cc:3898
0xb9a7bb symbols_update(unsigned long, bool)
        /home/so/gcc-cobol/gcc/cobol/symbols.cc:1932
0xb16249 data_division_ready
        /home/so/gcc-cobol/gcc/cobol/parse_ante.h:3599
0xb16249 yyparse()
        /home/so/gcc-cobol/gcc/cobol/parse.y:1610
0xbaccd4 parse_file
        /home/so/gcc-cobol/gcc/cobol/util.cc:3830
0xbaccd4 cobol_parse_files(int, char const**)
        /home/so/gcc-cobol/gcc/cobol/util.cc:3885


result from compiling with this definition and -dialect=gnu,mf

       01 T01-ASCII-STRING.
          03 T01-TRIPPLETS              OCCURS 20000.
            05 T01-BYTE1                PIC X COMP-X.
            05 T01-BYTE2                PIC X COMP-X.
       01 T01-CHAR REDEFINES T01-ASCII-STRING
                                        PIC X(1) OCCURS 40000.