From 670d1f26f3854e89cf119c75161e2a1bbda236c5 Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@suse.de>
Date: Wed, 21 Jul 1999 16:08:34 +0000
Subject: [PATCH] 	* 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/fileops.c    | 1 +
 libio/oldfileops.c | 1 +
 2 files changed, 2 insertions(+)

diff --git a/libio/fileops.c b/libio/fileops.c
index f5ec0e2b9ec..b9d4d69e885 100644
--- 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 fe29a7965b0..2f25ecc7634 100644
--- 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;
     }
-- 
2.47.3