https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125171
Peeter Joot <peeterjoot at protonmail dot com> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution|--- |FIXED
--- Comment #5 from Peeter Joot <peeterjoot at protonmail dot com> ---
verified fixed:
> cat 125171.cob
IDENTIFICATION DIVISION.
PROGRAM-ID. "FOO".
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CNT PIC S9(9) COMP-5 VALUE 0.
01 DCNT PIC S9(9) SIGN LEADING SEPARATE.
PROCEDURE DIVISION.
PERFORM UNTIL 1 = 0
ADD 1 TO CNT
IF CNT = 5
EXIT PERFORM
END-IF
EXIT PERFORM CYCLE
DISPLAY "NOT REACHED"
END-PERFORM
MOVE CNT TO DCNT
DISPLAY "DONE " DCNT
STOP RUN.
> /opt/gcc-trunk-20260923/bin/gcobol 125171.cob
> -Wl,-rpath,/opt/gcc-trunk-20260923/lib64
> ./a.out
DONE +000000005
> /usr/bin/gcobol 125171.cob
during GIMPLE pass: cfg
In function ‘foo’:
cobol1: internal compiler error: Segmentation fault
0x74b564445caf ???
./signal/../sysdeps/unix/sysv/linux/x86_64/libc_sigaction.c:0
0x74b56442a600 __libc_start_call_main
../sysdeps/nptl/libc_start_call_main.h:59
0x74b56442a717 __libc_start_main_impl
../csu/libc-start.c:360
Please submit a full bug report, with preprocessed source (by using
-freport-bug).
Please include the complete backtrace with any bug report.
See <file:///usr/share/doc/gcc-15/README.Bugs> for instructions.
(compiler built from: daba80d3fd7 (HEAD -> master, origin/trunk, origin/master,
origin/HEAD) Daily bump.)
