Remove unused variable

2018-01-06  Janne Blomqvist  <jb@gcc.gnu.org>

        * io/write.c (namelist_write): Remove unused variable "i".

From-SVN: r256314

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f0c151d22b51bdc06a1b583b7a90cfa63fb55887..cc4625fc2a13d19580d0313d28361e8c58f0489b 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2018-01-06  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * io/write.c (namelist_write): Remove unused variable "i".
+
 2018-01-06  Dominique d'Humieres  <dominiq@lps.ens.fr>
            Janne Blomqvist  <jb@gcc.gnu.org>
 
@@ -5,7 +9,7 @@
        * io/write.c (write_character): Use size_t instead of int for
        length.
 
-2019-01-05  Janne Blomqvist  <jb@gcc.gnu.org>
+2018-01-05  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR fortran/78534
        * intrinsics/args.c (getarg_i4): Use gfc_charlen_type.

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 32abbd64e91cd49f402f4df5bb301ff8a46e412d..ee6b4618445a185e97a089c9a7cd200f49763abd 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -2372,7 +2372,6 @@ void
 namelist_write (st_parameter_dt *dtp)
 {
   namelist_info *t1, *t2, *dummy = NULL;
-  index_type i;
   index_type dummy_offset = 0;
   char c;
   char *dummy_name = NULL;