From 0fe14b81507be3fe1cd6beda4b960384e813732d Mon Sep 17 00:00:00 2001 From: Laurence Kedward Date: Wed, 30 Sep 2020 10:29:40 +0100 Subject: Update fpm/src/fpm_filesystem.f90 Co-authored-by: Milan Curcic --- fpm/src/fpm_filesystem.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fpm/src/fpm_filesystem.f90 b/fpm/src/fpm_filesystem.f90 index 0ef844f..2aa9f8b 100644 --- a/fpm/src/fpm_filesystem.f90 +++ b/fpm/src/fpm_filesystem.f90 @@ -113,7 +113,7 @@ end function canon_path function dirname(path) result (dir) ! Extract dirname from path ! - character(*), intent(In) :: path + character(*), intent(in) :: path character(:), allocatable :: dir character(:), allocatable :: file_parts(:) -- cgit v1.2.3