diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2005-11-26 11:12:36 +0200 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2005-11-26 11:12:36 +0200 |
| commit | cea51b427ad31de90b76a378321458ab504a4f77 (patch) | |
| tree | 80897fe0a2371eae7241f310f2f4a3d46760962f /libgfortran | |
| parent | 18eaea7f15cf89aa5e0c9c99c76b14dfc39563c5 (diff) | |
| download | gcc-cea51b427ad31de90b76a378321458ab504a4f77.zip gcc-cea51b427ad31de90b76a378321458ab504a4f77.tar.gz gcc-cea51b427ad31de90b76a378321458ab504a4f77.tar.bz2 | |
libgfortran ChangeLog:
2005-11-26 Janne Blomqvist <jb@gcc.gnu.org>
PR libgfortran/24945
* io/open.c (edit_modes): Check for STATUS_UNKNOWN flag.
testsuite ChangeLog
2005-11-26 Janne Blomqvist <jb@gcc.gnu.org>
PR libgfortran/24945
* gfortran.dg/open_status_2.f90: New test.
From-SVN: r107538
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/open.c | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index a637ee4..03629e2 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2005-11-26 Janne Blomqvist <jb@gcc.gnu.org> + + PR libgfortran/24945 + * io/open.c (edit_modes): Check for STATUS_UNKNOWN flag. + 2005-11-25 Richard Henderson <rth@redhat.com> * io/list_read.c (nml_parse_qualifier): Use memcpy to extract diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 5459509..7e42cc6 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -144,9 +144,10 @@ edit_modes (st_parameter_open *opp, gfc_unit * u, unit_flags * flags) /* Status must be OLD if present. */ - if (flags->status != STATUS_UNSPECIFIED && flags->status != STATUS_OLD) + if (flags->status != STATUS_UNSPECIFIED && flags->status != STATUS_OLD && + flags->status != STATUS_UNKNOWN) generate_error (&opp->common, ERROR_BAD_OPTION, - "OPEN statement must have a STATUS of OLD"); + "OPEN statement must have a STATUS of OLD or UNKNOWN"); if (u->flags.form == FORM_UNFORMATTED) { |