Use correct block for intermediate variables.

gcc/fortran/ChangeLog:

	* trans-array.c (gfc_array_init_size): Use correct
	block for intermediate variables.

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 883876b346d4446147828f05390a534c3f733848..6aee6e0b79befea64810003e0a6fec570530f934 100644 (file)
--- 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);
            }
        }
     }