[Bug fortran/119136] Printing result of function that prints itself hangs

[jvdelisle at gcc dot gnu.org]

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

--- Comment #14 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Created attachment 63178
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=63178&action=edit
Preliminary patch that partially fixes this

The attached patch detects external file recurise I/O. As noted in the comment,
internal units needs to be handled differently. I am still sorting it out. As
is, this regression tests OK.