diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-02-19 11:23:28 +0100 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-02-19 10:23:28 +0000 |
| commit | c05f6d04cb428c8b4e443797b280cae8f005149d (patch) | |
| tree | 8f08c996fc22eaa15693d1fa54c485e884d3e7fc /libgfortran | |
| parent | 69b61bb16029ffb29ae57c0f98c26918362d480f (diff) | |
| download | gcc-c05f6d04cb428c8b4e443797b280cae8f005149d.zip gcc-c05f6d04cb428c8b4e443797b280cae8f005149d.tar.gz gcc-c05f6d04cb428c8b4e443797b280cae8f005149d.tar.bz2 | |
* io/open.c (edit_modes): Correct abusive copy-pasting.
From-SVN: r111266
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/io/open.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 616ea15..f56bf57 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2006-02-19 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * io/open.c (edit_modes): Correct abusive copy-pasting. + 2006-02-16 Francois-Xavier Coudert <coudert@clipper.ens.fr> PR libfortran/24903 diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 1459f8f..528188b 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -146,7 +146,7 @@ edit_modes (st_parameter_open *opp, gfc_unit * u, unit_flags * flags) generate_error (&opp->common, ERROR_BAD_OPTION, "Cannot change RECL parameter in OPEN statement"); - if (flags->action != ACTION_UNSPECIFIED && u->flags.access != flags->access) + if (flags->action != ACTION_UNSPECIFIED && u->flags.action != flags->action) generate_error (&opp->common, ERROR_BAD_OPTION, "Cannot change ACTION parameter in OPEN statement"); |