implement file_error for stdio

1 files changed, 5 insertions, 1 deletions

diff --git a/ufileIO2.c b/ufileIO2.c
index f079f70..f718b3b 100644
--- a/ufileIO2.c
+++ b/ufileIO2.c
@@ -940,8 +940,12 @@ int file_error (long fn)
 {
 	if (fn<FIRST_REAL_FILE){
 		switch (fn){
-			case 0:
 			case 1:
+				if (ferror (stdin) || ferror (stdout))
+					return -1;
+				else
+					return 0;
+			case 0:
 				return 0;
 			default:
 				return -1;