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

From-SVN: r111266

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 616ea15..f56bf57 100644 (file)
--- 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 (file)
--- 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");