* libio/fileops.c (_IO_new_file_underflow): Set error indicator

	when reading from write-only stream.
	* libio/oldfileops.c (_IO_old_file_underflow): Likewise.

diff --git a/libio/fileops.c b/libio/fileops.c
index f5ec0e2b9ec5531af3e0927887f3b58dec182183..b9d4d69e885a96624d0a65fb1ee2d648b4252d41 100644 (file)
--- a/libio/fileops.c
+++ b/libio/fileops.c
@@ -348,6 +348,7 @@ _IO_new_file_underflow (fp)
 
   if (fp->_flags & _IO_NO_READS)
     {
+      fp->_flags |= _IO_ERR_SEEN;
       __set_errno (EBADF);
       return EOF;
     }

diff --git a/libio/oldfileops.c b/libio/oldfileops.c
index fe29a7965b0e8777a807b0b254cda87cffeafe70..2f25ecc7634584efc0e214531d18443998b13217 100644 (file)
--- a/libio/oldfileops.c
+++ b/libio/oldfileops.c
@@ -314,6 +314,7 @@ _IO_old_file_underflow (fp)
 
   if (fp->_flags & _IO_NO_READS)
     {
+      fp->_flags |= _IO_ERR_SEEN;
       __set_errno (EBADF);
       return EOF;
     }