diff options
| author | Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> | 2021-06-05 15:02:08 +0200 |
|---|---|---|
| committer | Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> | 2021-06-05 15:03:41 +0200 |
| commit | 1dd45535600237b2790a61eccd9e0c6cbabbc826 (patch) | |
| tree | a6d30a137510d42f4d733def90fd599e9190319c /src/fpm_environment.f90 | |
| parent | 87a2cbfda5ac064c754e493d41950fde72e05fc7 (diff) | |
| download | fpm-1dd45535600237b2790a61eccd9e0c6cbabbc826.tar.gz fpm-1dd45535600237b2790a61eccd9e0c6cbabbc826.zip | |
Redirect output when searching for archiver
Diffstat (limited to 'src/fpm_environment.f90')
| -rw-r--r-- | src/fpm_environment.f90 | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/fpm_environment.f90 b/src/fpm_environment.f90 index 3754166..ef0177f 100644 --- a/src/fpm_environment.f90 +++ b/src/fpm_environment.f90 @@ -12,7 +12,6 @@ module fpm_environment public :: os_is_unix public :: run public :: get_env - public :: get_archiver public :: get_command_arguments_quoted public :: separator @@ -195,26 +194,6 @@ contains if(VALUE.eq.''.and.present(DEFAULT))VALUE=DEFAULT end function get_env - function get_archiver() result(archiver) - character(:), allocatable :: archiver - - associate(os_type => get_os_type()) - if (os_type /= OS_WINDOWS .and. os_type /= OS_UNKNOWN) then - archiver = "ar -rs " - else - block - integer :: estat - - call execute_command_line("ar --version", exitstat=estat) - if (estat /= 0) then - archiver = "lib /OUT:" - else - archiver = "ar -rs " - end if - end block - end if - end associate - end function function get_command_arguments_quoted() result(args) character(len=:),allocatable :: args character(len=:),allocatable :: arg |