From dd8b1ebf359da84ab41d0c4d1110d8f20d739f7f Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Sat, 6 Jan 2018 21:16:55 +0200 Subject: [PATCH] Remove unused variable 2018-01-06 Janne Blomqvist * io/write.c (namelist_write): Remove unused variable "i". From-SVN: r256314 --- libgfortran/ChangeLog | 6 +++++- libgfortran/io/write.c | 1 - 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f0c151d22b5..cc4625fc2a1 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2018-01-06 Janne Blomqvist + + * io/write.c (namelist_write): Remove unused variable "i". + 2018-01-06 Dominique d'Humieres Janne Blomqvist @@ -5,7 +9,7 @@ * io/write.c (write_character): Use size_t instead of int for length. -2019-01-05 Janne Blomqvist +2018-01-05 Janne Blomqvist 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 32abbd64e91..ee6b4618445 100644 --- 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; -- 2.30.2