OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Francois-Xavier Coudert 2005-09-09 23:51:33 +02:00 committed by François-Xavier Coudert
parent 9bfa80fb88
commit e0fd73d434
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -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.

3
libgfortran/io/close.c
View File

@ -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)