Commit 21905d1b by Janne Blomqvist Committed by Tobias Schlüter

re PR libfortran/24112 (Reopening file with STATUS='OLD' doesn't work)

2005-09-30  Janne Blomqvist <jblomqvi@cc.hut.fi>
libgfortran/
PR 24112
* io/open.c (edit_modes): Check for correct flag.
gcc/testsuite/
PR 24112
* gfortran.dg/open_status_1.f90: New.

From-SVN: r104829
parent 3f27846b
2005-09-30 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR 24112
* gfortran.dg/open_status_1.f90: New.
2005-09-30 Uros Bizjak <uros@kss-loka.si> 2005-09-30 Uros Bizjak <uros@kss-loka.si>
* gcc.dg/vect/fast-math-vect-reduc-7.c: Clean up temp files. * gcc.dg/vect/fast-math-vect-reduc-7.c: Clean up temp files.
! { dg-do run }
! Test reopening with io status='old'
program iostatus
open (1, file='foo', status='replace') ! Make sure file exists.
open (1, file='foo', status='old')
open (1, file='foo', status='old')
close (1, status='delete')
end program iostatus
2005-09-30 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR 24112
* io/open.c (edit_modes): Check for correct flag.
2005-09-29 Jakub Jelinek <jakub@redhat.com> 2005-09-29 Jakub Jelinek <jakub@redhat.com>
* runtime/string.c (find_option): Change 3rd argument to * runtime/string.c (find_option): Change 3rd argument to
......
...@@ -120,7 +120,7 @@ edit_modes (gfc_unit * u, unit_flags * flags) ...@@ -120,7 +120,7 @@ edit_modes (gfc_unit * u, unit_flags * flags)
/* Complain about attempts to change the unchangeable. */ /* Complain about attempts to change the unchangeable. */
if (flags->status != STATUS_UNSPECIFIED && if (flags->status != STATUS_UNSPECIFIED &&
u->flags.status != flags->position) u->flags.status != flags->status)
generate_error (ERROR_BAD_OPTION, generate_error (ERROR_BAD_OPTION,
"Cannot change STATUS parameter in OPEN statement"); "Cannot change STATUS parameter in OPEN statement");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment