Update fpm/src/fpm_filesystem.f90

LKedward · milancurcic · web-flow · commit 0fe14b81507b · 2020-09-30T10:29:40.000+01:00
Co-authored-by: Milan Curcic &lt;caomaco@gmail.com&gt;
diff --git 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(:)

Original file line number	Diff line number	Diff line change
`@@ -113,7 +113,7 @@ end function canon_path`
`113`	`113`	`function dirname(path) result (dir)`
`114`	`114`	`! Extract dirname from path`
`115`	`115`	`!`
`116`		`- character(*), intent(In) :: path`
	`116`	`+ character(*), intent(in) :: path`
`117`	`117`	`character(:), allocatable :: dir`
`118`	`118`
`119`	`119`	`character(:), allocatable :: file_parts(:)`