From 1f801ab7880c75c24a4ae1386afe13f7ba8ee596 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 22 May 2007 18:19:09 +0200 Subject: re PR libfortran/31295 (Uninitialized variable in libgfortran's _gfortran_eoshift0_4) 2007-05-22 Tobias Burnus PR libgfortran/31295 * intrinsics/eoshift0.c (eoshift0): Silence uninitialized warning. * intrinsics/eoshift2.c (eoshift2): Ditto. From-SVN: r124948 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/intrinsics/eoshift0.c | 2 ++ libgfortran/intrinsics/eoshift2.c | 3 +++ 3 files changed, 11 insertions(+) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 07199e7..47be95d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2007-05-22 Tobias Burnus + + PR libgfortran/31295 + * intrinsics/eoshift0.c (eoshift0): Silence uninitialized warning. + * intrinsics/eoshift2.c (eoshift2): Ditto. + 2007-05-18 Jerry DeLisle PR libfortran/31964 diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index a8a891b..74f13df 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 334d274..c41301e 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++) { -- cgit v1.1