From 6329b1fc26720d841b9a03b30bfcad9f523276b0 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Tue, 17 Nov 2020 22:51:26 +0100 Subject: [PATCH] Use correct block for intermediate variables. gcc/fortran/ChangeLog: * trans-array.c (gfc_array_init_size): Use correct block for intermediate variables. --- gcc/fortran/trans-array.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 883876b346d4..6aee6e0b79be 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); } } } -- 2.47.2