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.
