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  <tkoe...@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  <tkoe...@gcc.gnu.org>

         PR fortran/80988
         * gfortran.dg/implied_do_io_3.f90:  New test.

Reply via email to