https://gcc.gnu.org/bugzilla/show_bug.cgi?id=123890
Bug ID: 123890
Summary: SORT: multi-dimensional table leads to internal
compile error
Product: gcc
Version: 15.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: cobol
Assignee: unassigned at gcc dot gnu.org
Reporter: simonsobisch at gnu dot org
Target Milestone: ---
Identification Division.
Program-ID. SORT0001.
Data Division.
Working-Storage Section.
01 TABLE-01.
03 TABLE-03 OCCURS 5 TIMES.
05 TABLE-05 OCCURS 10 TIMES.
07 KEY-VAR PIC X(05).
07 SM-ELEM PIC X(04).
Procedure Division.
SORT TABLE-05(1) ON DESCENDING KEY-VAR
GOBACK.
leading to
cobol1: internal compiler error: Segmentation fault
0x20f49f5 diagnostic_context::diagnostic_impl(rich_location*,
diagnostic_metadata const*, diagnostic_option_id, char const*, __va_list_tag
(*) [1], diagnostic_t)
???:0
0x2105f46 internal_error(char const*, ...)
???:0
0x9027d5 cbl_key_t::cbl_key_t(cbl_occurs_key_t const&)
???:0
0x8b0baf yyparse()
???:0
0x91c2b1 cobol_parse_files(int, char const**)
???:0
