trans-stmt.c (compute_overall_iter_number): Fix a typo.

2007-01-18  H.J. Lu  <hongjiu.lu@intel.com>

	* trans-stmt.c (compute_overall_iter_number): Fix a typo.

From-SVN: r120915

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 671a21ebfc62afc532002f515c878a25e14f0f9a..103b259f3ce51c37f40331bb25a701fb06fd6c90 100644 (file)
--- 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 c36d6faf0e9e154de3c8c96439906b8d9c999a55..47a846eac9a8a8d60724c4a682855c071d92d595 100644 (file)
--- 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;
        }
     }