https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69064
--- Comment #45 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Backtrace
frame #10: 0x000000010014c798
f951`gfc_typenode_for_spec(spec=0x0000000142203940) + 136 at trans-types.c:1062
frame #11: 0x000000010014cb00 f951`gfc_sym_type(sym=0x0000000142203920) +
96 at trans-types.c:2158
frame #12: 0x00000001000f7d31
f951`gfc_get_symbol_decl(sym=0x0000000142203920) + 1809 at trans-decl.c:1565
frame #13: 0x00000001000fab08
f951`::generate_local_decl(sym=0x0000000142203920) + 808 at trans-decl.c:5149
frame #14: 0x00000001000faf51 f951`(e=<unavailable>, sym=<unavailable>,
f=<unavailable>)(gfc_expr *, gfc_symbol *, int *) + 65 at trans-decl.c:5097
frame #15: 0x0000000100038b9e
f951`gfc_traverse_expr(expr=0x0000000142203df0, sym=0x0000000142203eb0,
func=(f951`(null)(gfc_expr *, gfc_symbol *, int *) at trans-decl.c:5091),
f=0)(gfc_expr*, gfc_symbol*, int*), int) + 46 at expr.c:4148
frame #16: 0x00000001000fae73 f951`::generate_local_decl(gfc_symbol *)
[inlined] generate_expr_decls(e=<unavailable>, sym=0x0000000142203eb0) + 17 at
trans-decl.c:5104
frame #17: 0x00000001000fae62 f951`::generate_local_decl(gfc_symbol *)
frame #18: 0x00000001000fae62
f951`::generate_local_decl(sym=0x0000000142203eb0) + 1666
frame #19: 0x00000001000bf7d3 f951`::do_traverse_symtree(st=<unavailable>,
st_func=<unavailable>, sym_func=(f951`::generate_local_decl(gfc_symbol *) at
trans-decl.c:5138))(gfc_symtree *), void (*)(gfc_symbol *)) + 195 at
symbol.c:3817
frame #20: 0x00000001000fb847
f951`gfc_generate_function_code(ns=0x000000014281a400) + 391 at
trans-decl.c:5339
frame #21: 0x000000010008d24c f951`gfc_parse_file() + 1644 at parse.c:5612
frame #22: 0x00000001000d2cb6 f951`::gfc_be_parse_file() + 54 at
f95-lang.c:201
frame #23: 0x000000010097e89a f951`::compile_file() + 58 at toplev.c:464
frame #24: 0x0000000100d6dcce f951`toplev::main(int, char**) + 1146 at
toplev.c:1985
frame #25: 0x0000000100d6d854 f951`toplev::main(this=<unavailable>, argc=2,
argv=0x00007fff5fbff318) + 724
frame #26: 0x0000000100d6f689 f951`main(argc=2, argv=0x00007fff5fbff318) +
41 at main.c:39
