From e0fd73d434096bcddab24fcbea3bbaebdc6652ad Mon Sep 17 00:00:00 2001
From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Fri, 9 Sep 2005 23:51:33 +0200
Subject: re PR libfortran/23784 (close doesn't reset ioparm on error exit)

	PR libfortran/23784
	* io/close.c (st_close): Call library_end even in case of error.

From-SVN: r104108
---
 libgfortran/io/close.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'libgfortran/io')

diff --git a/libgfortran/io/close.c b/libgfortran/io/close.c
index 6010e92..3abaceb 100644
--- a/libgfortran/io/close.c
+++ b/libgfortran/io/close.c
@@ -64,7 +64,10 @@ st_close (void)
 		 "Bad STATUS parameter in CLOSE statement");
 
   if (ioparm.library_return != LIBRARY_OK)
+  {
+    library_end ();
     return;
+  }
 
   u = find_unit (ioparm.unit);
   if (u != NULL)
-- 
cgit v1.1