From: H.J. Lu <hongjiu.lu@intel.com>
Date: Thu, 18 Jan 2007 19:24:41 +0000 (+0000)
Subject: trans-stmt.c (compute_overall_iter_number): Fix a typo.
X-Git-Tag: releases/gcc-4.3.0~7415
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=c68b561665a8ad664ed5f08c85f1b9ba7b406623;p=thirdparty%2Fgcc.git

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 671a21ebfc62..103b259f3ce5 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 c36d6faf0e9e..47a846eac9a8 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;
 	}
     }