Remove unused variable

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

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

From-SVN: r256314

libgfortran/ChangeLog

+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.

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;