[Bug libfortran/59419] [4.9 Regression] Failing OPEN with FILE='xxx' and IOSTAT creates the file 'xxx' after revision 196783

[jvdelisle at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59419

--- Comment #7 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Tue Dec 17 03:06:04 2013
New Revision: 206039

URL: http://gcc.gnu.org/viewcvs?rev=206039&root=gcc&view=rev
Log:
2013-12-16  Jerry DeLisle  <jvdeli...@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.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/file_pos.c
    trunk/libgfortran/io/open.c
    trunk/libgfortran/io/transfer.c