[Bug fortran/96013] ICE in write_symbol, at fortran/module.c:5747

[dominiq at lps dot ens.fr]

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

--- Comment #7 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Sometime the test ICE with

f951: internal compiler error: gfc_code2string(): Bad code

which cannot be fixed by the patch in comment 6.

A sanitized version with the patch at
https://gcc.gnu.org/pipermail/fortran/2021-March/055811.html fails with

==51183==ERROR: AddressSanitizer: heap-use-after-free on address 0x61300000351a
at pc 0x0001002bac61 bp 0x7ffeefbfe6d0 sp 0x7ffeefbfe6c8
READ of size 1 at 0x61300000351a thread T0
    #0 0x1002bac60 in write_symbol(int, gfc_symbol*) module.c:5889
    #1 0x1002bb0d3 in write_symbol1_recursion(sorted_pointer_info*)
module.c:6122
    #2 0x1002bb1be in write_symbol1_recursion(sorted_pointer_info*)
module.c:6125
    #3 0x1002bb43b in write_symbol1(pointer_info*) module.c:6155
    #4 0x1002c51e0 in write_module() module.c:6302
    #5 0x1002c568f in dump_module(char const*, int) module.c:6431
    #6 0x1002c5df6 in gfc_dump_module(char const*, int) module.c:6488
    #7 0x10038ac06 in gfc_parse_file() parse.c:6509
    #8 0x10057734e in gfc_be_parse_file() f95-lang.c:212
    #9 0x10715ded6 in compile_file() toplev.c:457
    #10 0x10716c319 in do_compile() toplev.c:2201
    #11 0x10a205550 in toplev::main(int, char**) toplev.c:2340
    #12 0x10a20b4eb in main main.c:39
    #13 0x7fff2066d620 in start+0x0 (libdyld.dylib:x86_64+0x15620)
...