diff options
| author | John S. Urban <urbanjost@comcast.net> | 2021-07-18 19:42:58 -0400 |
|---|---|---|
| committer | John S. Urban <urbanjost@comcast.net> | 2021-07-18 19:42:58 -0400 |
| commit | 83f1fc0be44831b32869126be0afc55431791b56 (patch) | |
| tree | 5c5e7d4b624610a39687ab925cc2c57ae645f6e5 /src/fpm_filesystem.f90 | |
| parent | 1715c04c7e662599d20d2a43e8cc1e9cfbd2fa54 (diff) | |
| download | fpm-83f1fc0be44831b32869126be0afc55431791b56.tar.gz fpm-83f1fc0be44831b32869126be0afc55431791b56.zip | |
remove warnings and fix truncated help text
Diffstat (limited to 'src/fpm_filesystem.f90')
| -rw-r--r-- | src/fpm_filesystem.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fpm_filesystem.f90 b/src/fpm_filesystem.f90 index 2a32b54..284f558 100644 --- a/src/fpm_filesystem.f90 +++ b/src/fpm_filesystem.f90 @@ -45,7 +45,7 @@ end subroutine env_variable !> Extract filename from path with/without suffix function basename(path,suffix) result (base) - + character(*), intent(In) :: path logical, intent(in), optional :: suffix character(:), allocatable :: base @@ -90,7 +90,7 @@ function canon_path(path) character(len=:), allocatable :: canon_path character(len=:), allocatable :: nixpath - integer :: ii, istart, iend, stat, nn, last + integer :: istart, iend, nn, last logical :: is_path, absolute nixpath = unix_path(path) @@ -141,7 +141,7 @@ contains logical, intent(inout) :: is_path integer :: ii, nn - character :: tok, last + character :: tok nn = len(string) |