PR libgfortran/52758

	* intrinsics/chmod.c (chmod_func): Remove out-of-bounds
	initialization of rwxXstugo.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@186014 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6987ca1..2c13d6b 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2012-03-30  Uros Bizjak  <ubizjak@gmail.com>
+
+       PR libgfortran/52758
+       * intrinsics/chmod.c (chmod_func): Remove out-of-bounds
+       initialization of rwxXstugo.
+

 2012-03-22  Release Manager
 
        * GCC 4.7.0 released.
 2012-03-22  Release Manager
 
        * GCC 4.7.0 released.

diff --git a/libgfortran/intrinsics/chmod.c b/libgfortran/intrinsics/chmod.c
index 01db8be..9156303 100644 (file)
--- a/libgfortran/intrinsics/chmod.c
+++ b/libgfortran/intrinsics/chmod.c
@@ -141,7 +141,6 @@ chmod_func (char *name, char *mode, gfc_charlen_type name_len,
       rwxXstugo[6] = false;
       rwxXstugo[7] = false;
       rwxXstugo[8] = false;
       rwxXstugo[6] = false;
       rwxXstugo[7] = false;
       rwxXstugo[8] = false;

-      rwxXstugo[9] = false;

       part = 0;
       set_mode = -1;
       for (; i < mode_len; i++)
       part = 0;
       set_mode = -1;
       for (; i < mode_len; i++)