OSDN Git Service

Fix regression when writing formatted sequential to a pipe.
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 21 Feb 2013 20:13:04 +0000 (20:13 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 21 Feb 2013 20:13:04 +0000 (20:13 +0000)
commitbba4c5a5220e02c02426b1f2d93bfabb2a32af4d
tree92e463cd6487cce6cfe36b407b1b0ba17badbaef
parentb1991717729641d7fcf3355f870ff330c93d9490
Fix regression when writing formatted sequential to a pipe.

2013-02-21  Janne Blomqvist  <jb@gcc.gnu.org>

PR libfortran/30162
* io/open.c (test_endfile): Call stell only if size != 0.
* io/unix.c (raw_tell): Revert r194694.
(raw_size): Return size field only for regular files, otherwise 0.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@196212 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/open.c
libgfortran/io/unix.c