mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-25 19:11:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

From-SVN: r115224
This commit is contained in:
Francois-Xavier Coudert 2006-07-06 19:12:25 +02:00 committed by François-Xavier Coudert
parent 80f06e289b
commit ca86ddcc24
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

4
gcc/fortran/trans-stmt.c
View File

@ -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. */