diff --git a/src/xml-fortran/write_xml_primitives.f90 b/src/xml-fortran/write_xml_primitives.f90
index 94609593af..7d2cf90ba7 100644
--- a/src/xml-fortran/write_xml_primitives.f90
+++ b/src/xml-fortran/write_xml_primitives.f90
@@ -471,7 +471,7 @@ subroutine write_to_xml_line_array( info, tag, indent, array )
     logical, dimension(:), intent(in)            :: array
 
     character(len=100)                           :: indentation
-    integer                                      :: i, i2, j
+    integer                                      :: i
 
     indentation = ' '