mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-09 15:11:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

* io/open.c (edit_modes): Correct abusive copy-pasting.

Browse Source 
From-SVN: r111266
This commit is contained in:
Francois-Xavier Coudert 2006-02-19 11:23:28 +01:00 committed by François-Xavier Coudert
parent 69b61bb160
commit c05f6d04cb
2 changed files with 5 additions and 1 deletions
libgfortran
ChangeLog
io
open.c

4
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

2
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");