From fe044c9ad24a85692e31da98c3c682760f967afd Mon Sep 17 00:00:00 2001 From: tkoenig Date: Mon, 24 Jul 2017 09:50:28 +0000 Subject: 2017-07-24 Thomas Koenig Mikael Morin PR fortran/66102 * fortran/trans-array.c (gfc_conv_resolve_dependencies): Break if dependency has been found. 2017-07-24 Thomas Koenig Mikael Morin PR fortran/66102 * gfortran.dg/realloc_on_assign_28.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@250471 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/trans-array.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/trans-array.c') diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 47e8c091a9b..9efb531a722 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -4577,7 +4577,10 @@ gfc_conv_resolve_dependencies (gfc_loopinfo * loop, gfc_ss * dest, && gfc_check_dependency (dest_expr, ss_expr, false)) ss_info->data.scalar.needs_temporary = 1; - continue; + if (nDepend) + break; + else + continue; } if (dest_expr->symtree->n.sym != ss_expr->symtree->n.sym) -- cgit v1.2.1