Commit e0fd73d4 by Francois-Xavier Coudert Committed by François-Xavier Coudert

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
parent 9bfa80fb
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> 2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter. * io/io.h: Add iomsg as last field of st_parameter.
......
...@@ -64,7 +64,10 @@ st_close (void) ...@@ -64,7 +64,10 @@ st_close (void)
"Bad STATUS parameter in CLOSE statement"); "Bad STATUS parameter in CLOSE statement");
if (ioparm.library_return != LIBRARY_OK) if (ioparm.library_return != LIBRARY_OK)
{
library_end ();
return; return;
}
u = find_unit (ioparm.unit); u = find_unit (ioparm.unit);
if (u != NULL) if (u != NULL)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment