From 8b89aa85391798c56058cdb65c877ae2dddb490d Mon Sep 17 00:00:00 2001 From: hjl Date: Mon, 6 Apr 2009 23:07:51 +0000 Subject: 2009-04-06 H.J. Lu PR libgfortran/39664 * io/unix.c (raw_close): Don't close STDOUT_FILENO, STDERR_FILENO nor STDIN_FILENO. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145636 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/io/unix.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'libgfortran/io/unix.c') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 0d2650b50fa..4f8cbb535c4 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -344,7 +344,12 @@ raw_close (unix_stream * s) { int retval; - retval = close (s->fd); + if (s->fd != STDOUT_FILENO + && s->fd != STDERR_FILENO + && s->fd != STDIN_FILENO) + retval = close (s->fd); + else + retval = SUCCESS; free_mem (s); return retval; } -- cgit v1.2.1