[patch, fortran] Fix PR 80988

[Thomas Koenig]

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?

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.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: p-swim.diff
Type: text/x-patch
Size: 678 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20170609/01b68fc5/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: implied_do_io_3.f90
Type: text/x-fortran
Size: 794 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20170609/01b68fc5/attachment-0001.bin>