From d3c3a16087f6224051f6fdecbb4fd4a0a2763ae3 Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Sat, 17 Jun 2023 16:15:18 +0200 Subject: [PATCH] fix app args --- src/fpm_command_line.f90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/fpm_command_line.f90 b/src/fpm_command_line.f90 index 552320cd22..b895d5f6dc 100644 --- a/src/fpm_command_line.f90 +++ b/src/fpm_command_line.f90 @@ -323,7 +323,8 @@ subroutine get_command_line_settings(cmd_settings) ! If there are additional command-line arguments, remove the additional ! double quotes which have been added by M_CLI2 - call remove_characters_in_set(remaining,set='"') + val_runner_args=sget('runner-args') + call remove_characters_in_set(val_runner_args,set='"') c_compiler = sget('c-compiler') cxx_compiler = sget('cxx-compiler') @@ -331,7 +332,7 @@ subroutine get_command_line_settings(cmd_settings) allocate(fpm_run_settings :: cmd_settings) val_runner=sget('runner') if(specified('runner') .and. val_runner=='')val_runner='echo' - val_runner_args=sget('runner-args') + cmd_settings=fpm_run_settings(& & args=remaining,& & profile=val_profile,& @@ -577,7 +578,8 @@ subroutine get_command_line_settings(cmd_settings) ! If there are additional command-line arguments, remove the additional ! double quotes which have been added by M_CLI2 - call remove_characters_in_set(remaining,set='"') + val_runner_args=sget('runner-args') + call remove_characters_in_set(val_runner_args,set='"') c_compiler = sget('c-compiler') cxx_compiler = sget('cxx-compiler') @@ -585,7 +587,7 @@ subroutine get_command_line_settings(cmd_settings) allocate(fpm_test_settings :: cmd_settings) val_runner=sget('runner') if(specified('runner') .and. val_runner=='')val_runner='echo' - val_runner_args=sget('runner-args') + cmd_settings=fpm_test_settings(& & args=remaining, & & profile=val_profile, &