:ADDPATCH fortran:

This is another regression that I set off.  I take it to be urgent,
since it came up on comp.lang.fortran.

The PR and the patch speak for themselves. The testcase is the reporter's.

Regtested on Cygwin_NT/amd64.

I will commit this at the same time as PR32526, as obvious, unless
there are any objections overnight.

Now to get on with the character patches that I promised I would:-)

Paul

PS I realise that I am telling a lie.  The PR and the patch do not
speak for temselves completely.  I should have said that the do-loop
index in the contained function 'internal' was the cause of the
trouble, since it was getting labeled as an implicit do loop iterator
variable. This led the reference to 'i' in the call of the statement
function to generate a local declaration.

2007-07-04  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/32613
	* match.c (gfc_match_do): Reset the implied_index attribute.

2007-07-04  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/32613
	* gfortran.dg/do_iterator_2.f90: New test.