diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2022-03-22 20:54:18 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2022-03-22 20:54:18 +0100 |
| commit | 774ab2edcb5f3a24ed3a5cffd1143bd49a69f1ee (patch) | |
| tree | bfe69f39c5a2e8f77b0e6e6a50f0227d1232df25 /gcc/fortran | |
| parent | b6e33907ebe89361f8ddfb7481534cbf4a97f213 (diff) | |
| download | gcc-774ab2edcb5f3a24ed3a5cffd1143bd49a69f1ee.zip gcc-774ab2edcb5f3a24ed3a5cffd1143bd49a69f1ee.tar.gz gcc-774ab2edcb5f3a24ed3a5cffd1143bd49a69f1ee.tar.bz2 | |
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.
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/simplify.cc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc index 0c15bcb..233cc42 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; |