[Bug libfortran/39664] [4.5 Regression] Revision 145571 breaks stdio

[pinskia at gcc dot gnu dot org]

------- Comment #11 from pinskia at gcc dot gnu dot org  2009-04-06 22:47 
-------
(In reply to comment #9)
> This patch seems to work for the small testcase:

This patch looks correct based on the old code:

-  if (s->fd != STDOUT_FILENO && s->fd != STDERR_FILENO && s->fd !=
STDIN_FILENO)
-    {
-      if (close (s->fd) < 0)
-       return FAILURE;
-    }
-


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39664