re PR fortran/30869 ([4.1 only] Rejects pointer to integer as loop variable)

2007-02-20  Thomas Koenig  <Thomas.Koenig@online.de>

	PR fortran/30869
	* match.c(gfc_match_iterator):  Remove conflict between
	loop variable and pointer.

2007-02-20  Thomas Koenig  <Thomas.Koenig@online.de>

	PR fortran/30869
	* gfortran.dg/do_pointer_1.f90:  New test.

From-SVN: r122176

gcc/fortran/ChangeLog

+2007-02-20  Thomas Koenig  <Thomas.Koenig@online.de>
+
+	PR fortran/30869
+	* match.c(gfc_match_iterator):  Remove conflict between
+	loop variable and pointer.
+
 2007-02-20  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/30522

gcc/fortran/match.c

@@ -534,12 +534,6 @@ gfc_match_iterator (gfc_iterator *iter, int init_flag)
       goto cleanup;
     }
 
-  if (var->symtree->n.sym->attr.pointer)
-    {
-      gfc_error ("Loop variable at %C cannot have the POINTER attribute");
-      goto cleanup;
-    }
-
   m = init_flag ? gfc_match_init_expr (&e1) : gfc_match_expr (&e1);
   if (m == MATCH_NO)
     goto syntax;

gcc/testsuite/ChangeLog

+2007-02-20  Thomas Koenig  <Thomas.Koenig@online.de>
+
+	PR fortran/30869
+	* gfortran.dg/do_pointer_1.f90:  New test.
+
 2007-02-20  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* gcc.dg/torture/builtin-nonneg-1.c: Add checks for scalb, scalbn

gcc/testsuite/gfortran.dg/do_pointer_1.f90

+! { dg-do compile }
+! PR 30869 - pointer loop variables were wrongly rejected.
+program main
+  integer, pointer :: i
+  allocate (i)
+  do i=1,10
+  end do
+  deallocate (i)
+end program main