diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 00:37:22 -0500 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 00:37:22 -0500 |
| commit | 68e4946510cfed8c79434ac04ed690e474215dd5 (patch) | |
| tree | 0a70b768b95754a4355198440412b48425d412c9 | |
| parent | 71b2a2aa644772a9ceae551cde0e6f1f7040c3af (diff) | |
| download | fpm-68e4946510cfed8c79434ac04ed690e474215dd5.tar.gz fpm-68e4946510cfed8c79434ac04ed690e474215dd5.zip | |
remove unused variables
| -rw-r--r-- | fpm/test/help_test/help_test.f90 | 4 |
1 files 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 |