From 1a3d5cfee58075979774dfae2a0e3f68ba6031b2 Mon Sep 17 00:00:00 2001 From: Andre Smit Date: Thu, 20 Jan 2022 12:05:38 -0600 Subject: Update src/fpm/cmd/new.f90 Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> --- src/fpm/cmd/new.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fpm/cmd/new.f90 b/src/fpm/cmd/new.f90 index c0ec3b8..f5a3ea4 100644 --- a/src/fpm/cmd/new.f90 +++ b/src/fpm/cmd/new.f90 @@ -577,7 +577,7 @@ contains function default_user(what) result(user) implicit none - character(len=5), intent(in) :: what + character(len=*), intent(in) :: what character(len=:), allocatable :: user if (what=="uname") then user = "Jane Doe" -- cgit v1.2.3