Fix regression when writing formatted sequential to a pipe.
commit6dfa90cc960b6d4d50faeb3fbb8c4ee6134e4e16
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 21 Feb 2013 19:03:10 +0000 (21 19:03 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 21 Feb 2013 19:03:10 +0000 (21 19:03 +0000)
tree26f483a5c4fc248264b7e8d76bab4ca11eb5159a
parent3309ecdd01f80c7c67186a5b583bce2e2b5023ca
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 r194679.
(raw_size): Return size field only for regular files, otherwise 0.

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