From 68e4946510cfed8c79434ac04ed690e474215dd5 Mon Sep 17 00:00:00 2001
From: "init current directory[i]" <urbanjost@comcast.net>
Date: Fri, 4 Dec 2020 00:37:22 -0500
Subject: remove unused variables

---
 fpm/test/help_test/help_test.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fpm/test/help_test/help_test.f90 b/fpm/test/help_test/help_test.f90
index f73a4f5..8d5437e 100644
--- a/fpm/test/help_test/help_test.f90
+++ b/fpm/test/help_test/help_test.f90
@@ -1,7 +1,7 @@
 program help_test
 use,intrinsic :: iso_fortran_env, only : stdin=>input_unit, stdout=>output_unit, stderr=>error_unit
 implicit none
-integer                        :: i, j, k
+integer                        :: i, j
 integer                        :: be, af
 character(len=:),allocatable   :: path
 integer                        :: estat, cstat
@@ -131,7 +131,7 @@ implicit none
 !$@(#) M_io::slurp(3f): allocate text array and read file filename into it
 character(*),intent(in)                  :: filename    ! filename to shlep
 character(len=1),allocatable,intent(out) :: text(:)     ! array to hold file
-integer                                  :: nchars, igetunit, ios, i, icount
+integer                                  :: nchars, igetunit, ios
 character(len=256)                       :: message
 character(len=4096)                      :: local_filename
    ios=0
-- 
cgit v1.2.3