diff options
| author | Laurence Kedward <laurence.kedward@bristol.ac.uk> | 2021-06-23 11:02:14 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-23 11:02:14 +0100 |
| commit | d693d685d033c0da9c24686d61fdf6ede2caa7e4 (patch) | |
| tree | e8b8640efe12ac729851f2992e6243658b5922de /src/fpm_filesystem.f90 | |
| parent | 0372313a91263789c843623fca0aab9a4e340e19 (diff) | |
| parent | 63288a62ceeb20c53ba656b89c0f7c709ad9dbaa (diff) | |
| download | fpm-d693d685d033c0da9c24686d61fdf6ede2caa7e4.tar.gz fpm-d693d685d033c0da9c24686d61fdf6ede2caa7e4.zip | |
Merge pull request #500 from awvwgk/version-file
Allow reading version number from file
Diffstat (limited to 'src/fpm_filesystem.f90')
| -rw-r--r-- | src/fpm_filesystem.f90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/fpm_filesystem.f90 b/src/fpm_filesystem.f90 index 486e989..e6226b4 100644 --- a/src/fpm_filesystem.f90 +++ b/src/fpm_filesystem.f90 @@ -184,6 +184,7 @@ function dirname(path) result (dir) character(:), allocatable :: dir dir = path(1:scan(path,'/\',back=.true.)) + if (len_trim(dir) == 0) dir = "." end function dirname |