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