[Bug libfortran/126116] Internal file I/O corrupts NEWUNIT state, causing subsequent CLOSE/INQUIRE to segfault

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #4 from Harald Anlauf <anlauf at gcc dot gnu.org> ---
Running the testcase under gdb and setting a breakpoint at close.c:70,

  u = find_unit (clp->common.unit);

this returns different results with (/= NULL) and without (NULL) internal
write.
There could be some variable surviving to long.