From c05f6d04cb428c8b4e443797b280cae8f005149d Mon Sep 17 00:00:00 2001
From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Sun, 19 Feb 2006 11:23:28 +0100
Subject: [PATCH] * io/open.c (edit_modes): Correct abusive copy-pasting.
From-SVN: r111266
---
libgfortran/ChangeLog | 4 ++++
libgfortran/io/open.c | 2 +-
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 616ea15bd6e8..f56bf57be6b7 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 1459f8f310ae..528188bce9f9 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");
--
GitLab