diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-27 05:30:18 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-27 05:30:18 +0000 |
| commit | 40e43495ce35c06ac8379cc062673ac742dea592 (patch) | |
| tree | 380072f9acea76ec61579802242d07b3472b9acb /libgfortran/io/unix.c | |
| parent | e61c4586c2a6c5abbcc852d25f7f58019059fb3f (diff) | |
| download | gcc-40e43495ce35c06ac8379cc062673ac742dea592.zip gcc-40e43495ce35c06ac8379cc062673ac742dea592.tar.gz gcc-40e43495ce35c06ac8379cc062673ac742dea592.tar.bz2 | |
unix.c (fd_close): Do not close STDIN.
2008-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/unix.c (fd_close): Do not close STDIN.
From-SVN: r133630
Diffstat (limited to 'libgfortran/io/unix.c')
| -rw-r--r-- | libgfortran/io/unix.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index b3645f0..b6afe8d 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -871,7 +871,7 @@ fd_close (unix_stream * s) if (s->buffer != NULL && s->buffer != s->small_buffer) free_mem (s->buffer); - if (s->fd != STDOUT_FILENO && s->fd != STDERR_FILENO) + if (s->fd != STDOUT_FILENO && s->fd != STDERR_FILENO && s->fd != STDIN_FILENO) { if (close (s->fd) < 0) return FAILURE; |