fix app args

fortran-lang · Jun 17, 2023 · d3c3a16 · d3c3a16
1 parent 86e3d18
commit d3c3a16
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/fpm_command_line.f90 b/src/fpm_command_line.f90
@@ -323,15 +323,16 @@ 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')
             archiver = sget('archiver')
             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,15 +578,16 @@ 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')
             archiver = sget('archiver')
             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, &