* io/close.c (st_close): Call library_end even in case of error.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104108
138bc75d-0d04-0410-961f-
82ee72b054a4
+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.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
"Bad STATUS parameter in CLOSE statement");
if (ioparm.library_return != LIBRARY_OK)
"Bad STATUS parameter in CLOSE statement");
if (ioparm.library_return != LIBRARY_OK)
u = find_unit (ioparm.unit);
if (u != NULL)
u = find_unit (ioparm.unit);
if (u != NULL)