diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-11-17 22:51:26 +0100 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-11-17 22:51:26 +0100 |
| commit | 6329b1fc26720d841b9a03b30bfcad9f523276b0 (patch) | |
| tree | ae568386b18d8e8be48940b1b175ff269f4fbbb5 /gcc | |
| parent | 2a8909ce44ee765b527ab05d9ef49d49abf51be2 (diff) | |
| download | gcc-6329b1fc26720d841b9a03b30bfcad9f523276b0.zip gcc-6329b1fc26720d841b9a03b30bfcad9f523276b0.tar.gz gcc-6329b1fc26720d841b9a03b30bfcad9f523276b0.tar.bz2 | |
Use correct block for intermediate variables.
gcc/fortran/ChangeLog:
* trans-array.c (gfc_array_init_size): Use correct
block for intermediate variables.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/trans-array.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 883876b..6aee6e0 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -5805,10 +5805,10 @@ gfc_array_init_size (tree descriptor, int rank, int corank, tree * poffset, { size = gfc_conv_array_extent_dim (conv_lbound, conv_ubound, &or_expr); - size = gfc_evaluate_now (size, descriptor_block); + size = gfc_evaluate_now (size, pblock); stride = fold_build2_loc (input_location, MULT_EXPR, gfc_array_index_type, stride, size); - stride = gfc_evaluate_now (stride, descriptor_block); + stride = gfc_evaluate_now (stride, pblock); } } } |