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

gcc/fortran/ChangeLog

+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

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;
 	}
     }