Skip to content

Commit b8439d4

Browse files
committed
Minor update in mkdir and os_delete_dir
1 parent 4dbff27 commit b8439d4

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/fpm_filesystem.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -379,14 +379,14 @@ subroutine mkdir(dir, echo)
379379
call execute_command_line('mkdir -p ' // dir, exitstat=stat)
380380

381381
if (echo_local) then
382-
write (*, '(" + ",2a)') 'mkdir -p ' // dir
382+
write (*, *) '+ mkdir -p ' // dir
383383
end if
384384

385385
case (OS_WINDOWS)
386386
call execute_command_line("mkdir " // windows_path(dir), exitstat=stat)
387387

388388
if (echo_local) then
389-
write (*, '(" + ",2a)') 'mkdir ' // windows_path(dir)
389+
write (*, *) '+ mkdir ' // windows_path(dir)
390390
end if
391391

392392
end select
@@ -946,14 +946,14 @@ subroutine os_delete_dir(unix, dir, echo)
946946
call run('rm -rf ' // dir, .false.)
947947

948948
if (echo_local) then
949-
write (*, '(" + ",2a)') 'rm -rf ' // dir
949+
write (*, *) '+ rm -rf ' // dir
950950
end if
951951

952952
else
953953
call run('rmdir /s/q ' // dir, .false.)
954954

955955
if (echo_local) then
956-
write (*, '(" + ",2a)') 'rmdir /s/q ' // dir
956+
write (*, *) '+ rmdir /s/q ' // dir
957957
end if
958958

959959
end if

0 commit comments

Comments
 (0)