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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 07199e75872eaac470ed57a8b4170ba00b2d46f6..47be95d25bd04615ddca8adcda2ff7d7da9d7281 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c
index a8a891b25bf95e7e9c80025535b7462d25ea3cd7..74f13dfa31358a0d939517900eafda02c62416c0 100644 (file)
--- 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 334d2741cf8e560efd21bd1c519738fe04b7fc6a..c41301ec26e43a016b575e7b9dbe7c3784587ff6 100644 (file)
--- 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++)
     {