From: hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 18 Jan 2007 19:24:41 +0000 (+0000)
Subject: 2007-01-18  H.J. Lu  <hongjiu.lu@intel.com>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d520d7b982bfabcab5b13e7498ffb090515089f2;p=thirdparty%2Fgcc.git

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