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) ...
