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

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

1999-07-21  Andreas Schwab  <schwab@suse.de>

1 files changed, 1 insertions, 0 deletions

diff --git a/libio/wfileops.c b/libio/wfileops.c
index f3f8bf25dd..3489b36fb1 100644
--- a/libio/wfileops.c
+++ b/libio/wfileops.c
@@ -120,6 +120,7 @@ _IO_wfile_underflow (fp)
 
   if (fp->_flags & _IO_NO_READS)
     {
+      fp->_flags |= _IO_ERR_SEEN;
       __set_errno (EBADF);
       return WEOF;
     }