From b6b95dcc9d6563666c1358e6800cc9ff064f657c Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Sun, 20 Jun 2021 12:14:18 +0200
Subject: Allow reading version number from file

---
 src/fpm_filesystem.f90 | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/fpm_filesystem.f90')

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
 
-- 
cgit v1.2.3