re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file)
authorFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Tue, 29 Mar 2005 08:37:32 +0000 (08:37 +0000)
committerFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Tue, 29 Mar 2005 08:37:32 +0000 (08:37 +0000)
commit82498ed4b96badc4fc2ccd9889657b628320877c
treefc392638f57c476781c2ab631e8a4d1b41398da1
parent3445a80c36be4dfe90ec92c61d766f71bd9eed73
re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file)

PR libfortran/20163
* io/open.c (st_open): call library_end() before returning even if
an error arises.

* gfortran.dg/pr20163-2.f: New test.

From-SVN: r97153
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/pr20163-2.f [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/open.c