re PR fortran/27874 (Bad interaction between bounds checking, forall and derived...

	PR fortran/27874
	* trans-stmt.c (compute_inner_temp_size): Don't perform bounds
	checking when calculating the bounds of scalarization.

From-SVN: r115224

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e67b9bbc3dcfcee31be034b7ce4fcccd70ede809..38be155b6d105993329205dea7c97688bcfb8455 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-07-06  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR fortran/27874
+       * trans-stmt.c (compute_inner_temp_size): Don't perform bounds
+       checking when calculating the bounds of scalarization.
+
 2006-07-05  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR fortran/20892

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index 4e2f0fdfe2d073824d3aad584d76cddd99a622fd..a12316688cb9b12739e1f0d4fca71d37d27204b2 100644 (file)
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -1957,6 +1957,7 @@ compute_inner_temp_size (gfc_expr *expr1, gfc_expr *expr2,
   gfc_loopinfo loop;
   tree size;
   int i;
+  int save_flag;
   tree tmp;
 
   *lss = gfc_walk_expr (expr1);
@@ -1989,7 +1990,10 @@ compute_inner_temp_size (gfc_expr *expr1, gfc_expr *expr2,
       loop.array_parameter = 1;
 
       /* Calculate the bounds of the scalarization.  */
+      save_flag = flag_bounds_check;
+      flag_bounds_check = 0;
       gfc_conv_ss_startstride (&loop);
+      flag_bounds_check = save_flag;
       gfc_conv_loop_setup (&loop);
 
       /* Figure out how many elements we need.  */