re PR libfortran/59419 (Failing OPEN with FILE='xxx' and IOSTAT creates the file...
commit1ede59e4c72ec83a3382e5ca5f4779c819977a8c
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Tue, 17 Dec 2013 03:06:04 +0000 (17 03:06 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Tue, 17 Dec 2013 03:06:04 +0000 (17 03:06 +0000)
treeec8d3e6892e8fe0b968cd1630db981e970c6a72e
parent01d90185267d21a6f7c9a97722c1c71b3f1139dd
re PR libfortran/59419 (Failing OPEN with FILE='xxx' and IOSTAT creates the file 'xxx' after revision 196783)

2013-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu>

PR libfortran/59419
* io/file_pos.c (st_rewind): Do proper return after
generate_error.
* io/open.c (edit_modes): Move action code inside block that
checks for library ok. (new_unit): Do cleanup after error.
(st_open): Do proper return after error.
* io/transfer.c (data_transfer_init): Likewise.

From-SVN: r206039
libgfortran/ChangeLog
libgfortran/io/file_pos.c
libgfortran/io/open.c
libgfortran/io/transfer.c