test for error when closing stdio

1 files changed, 2 insertions, 0 deletions

diff --git a/ufileIO2.c b/ufileIO2.c
index f718b3b..d4a6d57 100644
--- a/ufileIO2.c
+++ b/ufileIO2.c
@@ -386,6 +386,8 @@ int close_file (long fn)
 			if (!stdio_open)
 				IO_error ("fclose: file not open (stdio)");
 			stdio_open=0;
+			if (ferror (stdin) || ferror (stdout))
+				return 0;
 		}
 		return -1;
 	} else {