diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 671a21e..103b259 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2007-01-18 H.J. Lu <hongjiu.lu@intel.com> + + * trans-stmt.c (compute_overall_iter_number): Fix a typo. + 2007-01-18 Roger Sayle <roger@eyesopen.com> * 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 c36d6fa..47a846e 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; } } |