diff options
| author | LKedward <laurence.kedward@bristol.ac.uk> | 2021-07-28 15:51:59 +0100 |
|---|---|---|
| committer | LKedward <laurence.kedward@bristol.ac.uk> | 2021-07-28 15:51:59 +0100 |
| commit | 18e2dab82c0760c501d4634e935b2ed7a50c26a5 (patch) | |
| tree | ec865ea2200ff27162dcf12b63b79356870c55eb /src/fpm_filesystem.F90 | |
| parent | bb0c412b4a331166c12f48b90dd0d5397da34e04 (diff) | |
| parent | 9e26b2d66c72c81ac5a0d752528104293836d206 (diff) | |
| download | fpm-18e2dab82c0760c501d4634e935b2ed7a50c26a5.tar.gz fpm-18e2dab82c0760c501d4634e935b2ed7a50c26a5.zip | |
Merge remote-tracking branch 'upstream/master' into file-listing
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 a26af75..597ed7b 100644 --- a/src/fpm_filesystem.F90 +++ b/src/fpm_filesystem.F90 @@ -79,7 +79,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 @@ -124,7 +124,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) @@ -175,7 +175,7 @@ contains logical, intent(inout) :: is_path integer :: ii, nn - character :: tok, last + character :: tok nn = len(string) |