diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-22 16:19:09 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-22 16:19:09 +0000 |
| commit | 1ac88dca658561b723ff8a8e72e77ba35e2c166d (patch) | |
| tree | ab50eb02afb9c6df8f315d6f563c41c0d9b6d0f7 /libgfortran/intrinsics | |
| parent | e737dbc0227e88c49ac122c17191e51c9091c6e0 (diff) | |
| download | gcc-1ac88dca658561b723ff8a8e72e77ba35e2c166d.tar.gz | |
2007-05-22 Tobias Burnus <burnus@net-b.de>
PR libgfortran/31295
* intrinsics/eoshift0.c (eoshift0): Silence uninitialized warning.
* intrinsics/eoshift2.c (eoshift2): Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124948 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/eoshift0.c | 2 | ||||
| -rw-r--r-- | libgfortran/intrinsics/eoshift2.c | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index a8a891b25bf..74f13dfa313 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -90,6 +90,8 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array, extent[0] = 1; count[0] = 0; + sstride[0] = -1; + rstride[0] = -1; n = 0; for (dim = 0; dim < GFC_DESCRIPTOR_RANK (array); dim++) { diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index 334d2741cf8..c41301ec26e 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -94,6 +94,9 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array, extent[0] = 1; count[0] = 0; + sstride[0] = -1; + rstride[0] = -1; + bstride[0] = -1; n = 0; for (dim = 0; dim < GFC_DESCRIPTOR_RANK (array); dim++) { |