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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6e45ee0ea29eaf06f81098ffcc14656fb9c3f6e4..2008edc443c162d958a8a98a908b77b3d76ffa71 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-09  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/23784
+       * io/close.c (st_close): Call library_end even in case of error.
+
 2005-09-09  Thomas Koenig  <Thomas.Koenig@online.de>
 
        * io/io.h:  Add iomsg as last field of st_parameter.

diff --git a/libgfortran/io/close.c b/libgfortran/io/close.c
index 6010e921fcb7ae47caadb1fa9d8409ad3967e336..3abacebbc399e7969c345045e46206172ac5330a 100644 (file)
--- 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)