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

re PR libfortran/20163 ([4.0 only] gfortran - error opening direct access file)

Browse Source 
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
This commit is contained in:
François-Xavier Coudert 2005-03-29 08:37:32 +00:00
parent 3445a80c36
commit 82498ed4b9
4 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/testsuite/ChangeLog
View File

@ -1,14 +1,14 @@
2005-03-28 Steve Ellcey <sje@cup.hp.com>
PR target/19890
* gcc.dg/20020219-1.c: Skip on IA64 HP-UX in ILP32 mode.
2005-03-29 Dale Ranta <dir@lanl.gov>
Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20163
* gfortran.dg/pr20163-2.f: New test.
2005-03-28 Steve Ellcey <sje@cup.hp.com>
PR target/19890
* gcc.dg/20020219-1.c: Skip on IA64 HP-UX in ILP32 mode.
2005-03-28 Jan Hubicka <jh@suse.cz>
PR middle-end/20635

5
gcc/testsuite/gfortran.dg/pr20163-2.f Normal file
View File

@ -0,0 +1,5 @@
open(10,status="foo",err=100)
call abort
100 continue
open(10,status="scratch")
end

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2005-03-29 Dale Ranta <dir@lanl.gov>
Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20163
* io/open.c (st_open): call library_end() before returning even if
an error arises.
2005-03-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19678

3
libgfortran/io/open.c
View File

@ -481,7 +481,10 @@ st_open (void)
flags.position = POSITION_ASIS;
if (ioparm.library_return != LIBRARY_OK)
{
library_end ();
return;
}
u = find_unit (ioparm.unit);