diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-09-09 23:51:33 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-09-09 21:51:33 +0000 |
| commit | e0fd73d434096bcddab24fcbea3bbaebdc6652ad (patch) | |
| tree | 7797c1bb2fd0aec439f5a6ad8f05c12f2e6ffa00 /libgfortran/io/close.c | |
| parent | 9bfa80fb88707e345517a65a5697e398d674f34c (diff) | |
| download | gcc-e0fd73d434096bcddab24fcbea3bbaebdc6652ad.zip gcc-e0fd73d434096bcddab24fcbea3bbaebdc6652ad.tar.gz gcc-e0fd73d434096bcddab24fcbea3bbaebdc6652ad.tar.bz2 | |
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
Diffstat (limited to 'libgfortran/io/close.c')
| -rw-r--r-- | libgfortran/io/close.c | 3 |
1 files changed, 3 insertions, 0 deletions
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) |