From c68b561665a8ad664ed5f08c85f1b9ba7b406623 Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Thu, 18 Jan 2007 19:24:41 +0000 Subject: [PATCH] trans-stmt.c (compute_overall_iter_number): Fix a typo. 2007-01-18 H.J. Lu * trans-stmt.c (compute_overall_iter_number): Fix a typo. From-SVN: r120915 --- 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 671a21ebfc6..103b259f3ce 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 c36d6faf0e9..47a846eac9a 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.30.2