From 297dd55afd2bf2bedbdb244fba4e9027b8060532 Mon Sep 17 00:00:00 2001
From: Thomas Schwinge <tschwinge@gnu.org>
Date: Fri, 28 Jul 2006 23:55:25 +0000
Subject: 2006-07-29  Ognyan Kulev  <ogi@fmi.uni-sofia.bg>

	* migcom.c (myfclose): New function.
	(main): Use myfclose instead of fclose.
	* user.c (WriteUserIndividual): Check for errors when closing file.
---
 user.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'user.c')

diff --git a/user.c b/user.c
index 374edbe..8d0a2ab 100644
--- a/user.c
+++ b/user.c
@@ -1320,7 +1320,9 @@ WriteUserIndividual(const statement_t *stats)
 
 		WriteRoutine(file, stat->stRoutine);
 		WriteEpilog(file);
-		fclose(file);
+		if (ferror(file) || fclose(file))
+		    fatal("fclose(): ", filename,
+			  unix_error_string(errno));
 		strfree(filename);
 	    }
 	    break;
-- 
cgit v1.2.3