From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Tue, 17 Nov 2020 21:51:26 +0000 (+0100)
Subject: Use correct block for intermediate variables.
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6329b1fc26720d841b9a03b30bfcad9f523276b0;p=thirdparty%2Fgcc.git

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 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);
 	    }
 	}
     }