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

Peeter Joot <peeterjoot at protonmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Version|16.1.0                      |17.0

--- Comment #2 from Peeter Joot <peeterjoot at protonmail dot com> ---
fyi. fails on trunk too:

ubuntu:/home/peeterjoot/tmp> cat 125171.cob 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. "FOO".
       PROCEDURE DIVISION.
           PERFORM UNTIL 1 = 0
      *        DISPLAY 0
               EXIT PERFORM CYCLE
           END-PERFORM
           STOP RUN
           .
ubuntu:/home/peeterjoot/tmp> gcobol 125171.cob 
during GIMPLE pass: cfg
In function ‘foo’:
cobol1: internal compiler error: Segmentation fault
0x239b373 internal_error(char const*, ...)
        /home/peeterjoot/repos/gcc/gcc/diagnostic-global-context.cc:787
0x109185b crash_signal
        /home/peeterjoot/repos/gcc/gcc/toplev.cc:325
0x10d80f8 main_block_label
        /home/peeterjoot/repos/gcc/gcc/tree-cfg.cc:1435
0x10d80f8 cleanup_dead_labels()
        /home/peeterjoot/repos/gcc/gcc/tree-cfg.cc:1620
0x10e3953 build_gimple_cfg
        /home/peeterjoot/repos/gcc/gcc/tree-cfg.cc:204
0x10e3953 execute_build_cfg
        /home/peeterjoot/repos/gcc/gcc/tree-cfg.cc:332
0x10e3953 execute
        /home/peeterjoot/repos/gcc/gcc/tree-cfg.cc:373
/opt/gcc-trunk-20260606/libexec/gcc/aarch64-unknown-linux-gnu/17.0.0/cobol1
125171.cob -quiet -dumpdir a- -dumpbase 125171.cob -dumpbase-ext .cob
-main=125171.cob -mlittle-endian -mabi=lp64 -imultiarch aarch64-linux-gnu -o
/run/user/1000/ccCS26mb.s
Please submit a full bug report, with preprocessed source (by using
-freport-bug).
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.
ubuntu:/home/peeterjoot/tmp> gcobol --version
gcobol (GCC) 17.0.0 20260604 (experimental)
Copyright (C) 2026 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Reply via email to