[patch, fortran] Fix PR 80988

[Jerry DeLisle]

On 06/09/2017 01:47 PM, Thomas Koenig wrote:
> Hello world,
> 
> the attached patch fixes the PR by not doing a replacement of
> (a(i,i),i=1,3) by an array expression (which does not exist).
> 
> Regression-tested.  OK for trunk?
>

OK, thanks

> Regards
> 
>      Thomas
> 
> 2017-06-09  Thomas Koenig  <tkoenig@gcc.gnu.org>
> 
>          PR fortran/80988
>          * frontend-passes.c (traverse_io_block):  Also
>          check for variables occurring as indices multiple
>          time in a single implied DO loop.
> 
> 2017-06-09  Thomas Koenig  <tkoenig@gcc.gnu.org>
> 
>          PR fortran/80988
>          * gfortran.dg/implied_do_io_3.f90:  New test.