re PR libfortran/31295 (Uninitialized variable in libgfortran's _gfortran_eoshift0_4)

2007-05-22  Tobias Burnus  <burnus@net-b.de>

       PR libgfortran/31295
       * intrinsics/eoshift0.c (eoshift0): Silence uninitialized warning.
       * intrinsics/eoshift2.c (eoshift2): Ditto.

From-SVN: r124948

libgfortran/ChangeLog

+2007-05-22  Tobias Burnus  <burnus@net-b.de>
+
+	PR libgfortran/31295
+	* intrinsics/eoshift0.c (eoshift0): Silence uninitialized warning.
+	* intrinsics/eoshift2.c (eoshift2): Ditto.
+
 2007-05-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libfortran/31964

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++)
     {

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++)
     {