re PR fortran/44353 (rejects legal fortran)

2010-07-19  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/44353
	* match.c (gfc_match_iterator): Revert.

2010-07-19  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/44353
	* gfortran.dg/data_implied_do_2.f03 : Remove.

From-SVN: r162294

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 48144b05806274cb97f4992e357962f5bcdcfab2..a903c8a4acf50002ff4cc8c3cce50c5dc054713e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-19  Paul Thomas  <pault@gcc.gnu.org>
+
+       PR fortran/44353
+       * match.c (gfc_match_iterator): Reverted.
+
 2010-07-18  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/44353

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index 3761261fff0537378c1452ed095f3f2d9545065d..56e9d1d515dd9085be3d98d5579a0ddc1e40623f 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -978,6 +978,13 @@ gfc_match_iterator (gfc_iterator *iter, int init_flag)
       goto cleanup;
     }
 
+  if (var->symtree->n.sym->attr.intent == INTENT_IN)
+    {
+      gfc_error ("Loop variable '%s' at %C cannot be INTENT(IN)",
+                var->symtree->n.sym->name);
+      goto cleanup;
+    }
+
   gfc_match_char ('=');
 
   var->symtree->n.sym->attr.implied_index = 1;

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7cf7beba5afd8c46f70b662134cc431cdceaf500..73fb7b78465edee68a49ae8203a13c3d3e5a0b3b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-19  Paul Thomas  <pault@gcc.gnu.org>
+
+       PR fortran/44353
+       * gfortran.dg/data_implied_do_2.f03 : Removed.
+
 2010-07-18  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/44353