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

	* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 671a21e..103b259 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 c36d6fa..47a846e 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;
        }
     }