From a0edd35cf6cbcb81d95afcd8f8c9d2ac539d0314 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Fri, 21 Dec 2012 20:50:48 +0000 Subject: [PATCH] re PR libfortran/30162 (Document when sequential I/O with named pipes works) 2012-12-21 Thomas Koenig PR libfortran/30162 * io/unix.c (raw_tell): If the lseek is done on a non-seekable file, return 0. From-SVN: r194679 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/unix.c | 10 +++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 32f9bbe7fd96..566a24bd55bf 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2012-12-21 Thomas Koenig + + PR libfortran/30162 + * io/unix.c (raw_tell): If the lseek is done on a + non-seekable file, return 0. + 2012-12-20 Janus Weil PR fortran/36044 diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 9d2e9d850879..e690aec77a56 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -344,7 +344,15 @@ raw_seek (unix_stream * s, gfc_offset offset, int whence) static gfc_offset raw_tell (unix_stream * s) { - return lseek (s->fd, 0, SEEK_CUR); + gfc_offset x; + x = lseek (s->fd, 0, SEEK_CUR); + + /* Non-seekable files should always be assumed to be at + current position. */ + if (x == -1 && errno == ESPIPE) + x = 0; + + return x; } static gfc_offset -- 2.47.2