https://gcc.gnu.org/bugzilla/show_bug.cgi?id=127972
Bug ID: 127972
Summary: ICE on valid code
Product: gcc
Version: 17.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: algol68
Assignee: algol68 at gcc dot gnu.org
Reporter: mnabipoor at gnu dot org
Target Milestone: ---
(Please note that I replace home directory path with $HOME)
```
$ cat ice01.a68
module ICE01 = def
pub mode Byte = short short int;
pub mode T = struct(flex[1:0]Byte src);
pub mode P = struct(T t);
pub proc p_new = ([]Byte src) P: skip;
skip
fed
$ cat ice01-use.a68
access ICE01 (
[3]Byte buf := (SHORTEN SHORTEN ABS "H", SHORTEN SHORTEN ABS "i", short short
0);
P p := p_new(buf);
skip
)
$ ga68 -c ice01.a68
$ ga68 -c ice01-use.a68
In function ‘__algol68_main’:
a681: internal compiler error: Segmentation fault
0x29e03df internal_error(char const*, ...)
$HOME/p/gnu/gcc/gcc/diagnostic-global-context.cc:787
0x118ba4f crash_signal
$HOME/p/gnu/gcc/gcc/toplev.cc:325
0xae83ae fill_in_buffer
$HOME/p/gnu/gcc/gcc/algol68/a68-low-generator.cc:147
0xae8994 fill_in_buffer
$HOME/p/gnu/gcc/gcc/algol68/a68-low-generator.cc:292
0xae8994 fill_in_buffer
$HOME/p/gnu/gcc/gcc/algol68/a68-low-generator.cc:292
0xae91bc a68_low_generator(NODE_T*, MOID_T*, bool, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-generator.cc:510
0xae6e45 a68_lower_variable_declaration(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-decls.cc:334
0xae32c3 a68_lower_initialiser_series(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:187
0xae336c a68_lower_serial_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:238
0xae4973 a68_lower_closed_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:1391
0xae49d2 a68_lower_access_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:1445
0xae3327 a68_lower_serial_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:248
0xae4973 a68_lower_closed_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:1391
0xae3327 a68_lower_serial_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:248
0xae33ac a68_lower_serial_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:218
0xae4973 a68_lower_closed_clause(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low-clauses.cc:1391
0xadfc7b lower_particular_program
$HOME/p/gnu/gcc/gcc/algol68/a68-low.cc:1529
0xadfc7b a68_lower_tree(NODE_T*, LOW_CTX_T)
$HOME/p/gnu/gcc/gcc/algol68/a68-low.cc:1583
0xae079c a68_lower_top_tree(NODE_T*)
$HOME/p/gnu/gcc/gcc/algol68/a68-low.cc:1797
0xa8f76d a68_parse_file
$HOME/p/gnu/gcc/gcc/algol68/a68-lang.cc:704
$HOME/dev/ga68-x86_64/libexec/gcc/x86_64-pc-linux-gnu/17.0.0/a681 ice01-use.a68
-quiet -dumpbase ice01-use.a68 -dumpbase-ext .a68 -mtune=generic -march=x86-64
-L$HOME/dev/ga68-x86_64/lib/gcc/x86_64-pc-linux-gnu/17.0.0
-L$HOME/dev/ga68-x86_64/lib/gcc/x86_64-pc-linux-gnu/17.0.0/../../../../lib64
-L/lib/../lib64 -L/usr/lib/../lib64
-L$HOME/dev/ga68-x86_64/lib/gcc/x86_64-pc-linux-gnu/17.0.0/../../.. -L/lib
-L/usr/lib -o /tmp/ccrZaWsX.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.
```
