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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122176
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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;
+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
--- /dev/null
+! { 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