@@ -505,21 +505,21 @@ end subroutine cmd_run
505
505
506
506
subroutine cmd_clean (settings )
507
507
class(fpm_clean_settings), intent (in ) :: settings
508
- character (len= 1 ) :: response
509
- if (is_dir(" build" )) then
510
- write (stdout, ' (A)' , advance= ' no' ) " Delete the build directory (y/n)? "
511
- read (stdin, ' (A1)' ) response
512
- if (lower(response) == ' y' ) then
513
- if (settings% unix) then
514
- call run(' rm -rf build' , .false. )
515
- else
516
- call run(' rmdir /s/q build' , .false. )
517
- end if
518
- else
519
- write (stdout, ' (A)' ) " fpm: The response was not affirmative, build directory was not deleted."
520
- end if
521
- else
522
- write (stdout, ' (A)' ) " fpm: No build directory found."
508
+ character (len= 1 ) :: response
509
+ if (is_dir(" build" )) then
510
+ write (stdout, ' (A)' , advance= ' no' ) " Delete the build directory (y/n)? "
511
+ read (stdin, ' (A1)' ) response
512
+ if (lower(response) == ' y' ) then
513
+ if (settings% unix) then
514
+ call run(' rm -rf build' , .false. )
515
+ else
516
+ call run(' rmdir /s/q build' , .false. )
517
+ end if
518
+ else
519
+ write (stdout, ' (A)' ) " fpm: The response was not affirmative, build directory was not deleted."
520
+ end if
521
+ else
522
+ write (stdout, ' (A)' ) " fpm: No build directory found."
523
523
end if
524
524
end subroutine cmd_clean
525
525
0 commit comments