Fix regression when writing formatted sequential to a pipe.
commit68aab0e225dbafdaa8115092b0ed829ab5c9d161
authorJanne Blomqvist <jb@gcc.gnu.org>
Thu, 21 Feb 2013 19:03:10 +0000 (21 21:03 +0200)
committerJanne Blomqvist <jb@gcc.gnu.org>
Thu, 21 Feb 2013 19:03:10 +0000 (21 21:03 +0200)
tree26f483a5c4fc248264b7e8d76bab4ca11eb5159a
parenta4a66330d53ed57deec63c7f1018d5e52c92ca4c
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.

From-SVN: r196210
libgfortran/ChangeLog
libgfortran/io/open.c
libgfortran/io/unix.c