Skip to content

Commit 1a3d5cf

Browse files
freevryheidawvwgk
andauthored
Update src/fpm/cmd/new.f90
Co-authored-by: Sebastian Ehlert <[email protected]>
1 parent 45d3fd8 commit 1a3d5cf

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/fpm/cmd/new.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -577,7 +577,7 @@ subroutine cmd_new(settings)
577577

578578
function default_user(what) result(user)
579579
implicit none
580-
character(len=5), intent(in) :: what
580+
character(len=*), intent(in) :: what
581581
character(len=:), allocatable :: user
582582
if (what=="uname") then
583583
user = "Jane Doe"

0 commit comments

Comments
 (0)