From ac39f0e831cee81e63b0d3a84d2ae6943b27ee5b Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 10 Jun 2017 10:07:13 +0000 Subject: re PR fortran/80988 (171_swim fails) 2017-06-10 Thomas Koenig 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-10 Thomas Koenig PR fortran/80988 * gfortran.dg/implied_do_io_3.f90: New test. From-SVN: r249092 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/frontend-passes.c | 11 ++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 33b2ac2..ec28113 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2017-06-10 Thomas Koenig + + 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-05 Janus Weil PR fortran/70601 diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 8fa1de1..11c7503 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -1164,7 +1164,16 @@ traverse_io_block (gfc_code *code, bool *has_reached, gfc_code *prev) /* Check for (a(k), i=1,4) or ((a(j, i), i=1,4), j=1,4). */ if (!stack_top || !stack_top->iter || stack_top->iter->var->symtree != start->symtree) - iters[i] = NULL; + { + /* Check for (a(i,i), i=1,3). */ + int j; + + for (j=0; jvar->symtree == start->symtree) + return false; + + iters[i] = NULL; + } else { iters[i] = stack_top->iter; -- cgit v1.1