diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-11-14 18:03:05 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-11-14 18:03:05 +0000 |
| commit | 993ac38b0fd488754dad42d4202447cabc9d3156 (patch) | |
| tree | e7f8e74d03abebca3cb39d01a54bc5396022ddb6 /gcc/fortran/trans-array.c | |
| parent | 927425dffe021ce15ded980b28a8a5f649b83934 (diff) | |
| download | gcc-993ac38b0fd488754dad42d4202447cabc9d3156.zip gcc-993ac38b0fd488754dad42d4202447cabc9d3156.tar.gz gcc-993ac38b0fd488754dad42d4202447cabc9d3156.tar.bz2 | |
re PR fortran/38033 (Bounds of a pointer/allocatable array not stabilized)
2008-10-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38033
* trans-array.c (gfc_trans_create_temp_array): Stabilize the
'to' expression.
(gfc_conv_loop_setup): Use the end expression for the loop 'to'
if it is available.
2008-10-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38033
* gfortran.dg/array_section_2.f90: New test.
From-SVN: r141861
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 218c401..9cede5c 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -650,8 +650,10 @@ gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post, { /* Callee allocated arrays may not have a known bound yet. */ if (loop->to[n]) - loop->to[n] = fold_build2 (MINUS_EXPR, gfc_array_index_type, - loop->to[n], loop->from[n]); + loop->to[n] = + gfc_evaluate_now (fold_build2 (MINUS_EXPR, + gfc_array_index_type, loop->to[n], + loop->from[n]), pre); loop->from[n] = gfc_index_zero_node; } @@ -3511,8 +3513,13 @@ gfc_conv_loop_setup (gfc_loopinfo * loop, locus * where) break; case GFC_SS_SECTION: - loop->to[n] = gfc_conv_section_upper_bound (loopspec[n], n, - &loop->pre); + /* Use the end expression if it exists and is not constant, + so that it is only evaluated once. */ + if (info->end[n] && !INTEGER_CST_P (info->end[n])) + loop->to[n] = info->end[n]; + else + loop->to[n] = gfc_conv_section_upper_bound (loopspec[n], n, + &loop->pre); break; case GFC_SS_FUNCTION: |