Update src/fpm/cmd/new.f90

Co-authored-by: Sebastian Ehlert <[email protected]>

Author: freevryheid

src/fpm/cmd/new.f90

@@ -590,7 +590,7 @@ end function default_user
 function git_user(what) result(user)
   use fpm_filesystem, only : get_temp_filename, getline
   implicit none
-  character(len=5), intent(in) :: what
+  character(len=*), intent(in) :: what
   character(len=:), allocatable :: user
   character(len=:), allocatable :: temp_user, iomsg
   integer :: stat, unit