From d520d7b982bfabcab5b13e7498ffb090515089f2 Mon Sep 17 00:00:00 2001 From: hjl Date: Thu, 18 Jan 2007 19:24:41 +0000 Subject: [PATCH] 2007-01-18 H.J. Lu * trans-stmt.c (compute_overall_iter_number): Fix a typo. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120915 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-stmt.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 671a21ebfc62..103b259f3ce5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2007-01-18 H.J. Lu + + * trans-stmt.c (compute_overall_iter_number): Fix a typo. + 2007-01-18 Roger Sayle * trans-expr.c (copyable_array_p): Consider user derived types without diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index c36d6faf0e9e..47a846eac9a8 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -2057,7 +2057,7 @@ compute_overall_iter_number (forall_info *nested_forall_info, tree inner_size, forall_tmp; forall_tmp = forall_tmp->next_nest) tmp = fold_build2 (MULT_EXPR, gfc_array_index_type, - tmp, forall->size); + tmp, forall_tmp->size); return tmp; } } -- 2.47.3