From: Harald Anlauf <anlauf@gmx.de>
Date: Tue, 22 Mar 2022 19:54:18 +0000 (+0100)
Subject: Fortran: ensure intialization of stride array
X-Git-Tag: basepoints/gcc-13~542
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=774ab2edcb5f3a24ed3a5cffd1143bd49a69f1ee;p=thirdparty%2Fgcc.git

Fortran: ensure intialization of stride array

gcc/fortran/ChangeLog:

	PR fortran/104999
	* simplify.cc (gfc_simplify_cshift): Ensure temporary holding
	source array stride is initialized.
---

diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc
index 0c15bcb2b0a9..233cc42137fe 100644
--- a/gcc/fortran/simplify.cc
+++ b/gcc/fortran/simplify.cc
@@ -2134,6 +2134,7 @@ gfc_simplify_cshift (gfc_expr *array, gfc_expr *shift, gfc_expr *dim)
 
   resultvec = XCNEWVEC (gfc_expr *, arraysize);
 
+  sstride[0] = 0;
   extent[0] = 1;
   count[0] = 0;