PR libfortran/20163
commit9c9b332fb841e607ed4eec768e2de678538f9d59
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 08:33:49 +0000 (29 08:33 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 08:33:49 +0000 (29 08:33 +0000)
treedf301bb3d94c05767ef004e517a4461c92cf0b46
parent3cd431f42e00e947ba4451ba4f4521fbd7a6246a
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97152 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/testsuite/ChangeLog