@@ -279,7 +279,7 @@ subroutine get_command_line_settings(cmd_settings)
279
279
! not starting with dash
280
280
CLI_RESPONSE_FILE= .true.
281
281
cmdarg = get_subcommand()
282
-
282
+
283
283
common_args = &
284
284
' --directory:C " "' // &
285
285
' --verbose F'
@@ -579,10 +579,10 @@ subroutine get_command_line_settings(cmd_settings)
579
579
allocate (fpm_test_settings :: cmd_settings)
580
580
val_runner= sget(' runner' )
581
581
if (specified(' runner' ) .and. val_runner==' ' )val_runner= ' echo'
582
-
582
+
583
583
select type (cmd = > cmd_settings)
584
584
type is (fpm_test_settings)
585
-
585
+
586
586
call build_settings(cmd, list= lget(' list' ), build_tests= .true. , &
587
587
config_file= sget(' config-file' ))
588
588
@@ -591,9 +591,9 @@ subroutine get_command_line_settings(cmd_settings)
591
591
cmd% name = names
592
592
cmd% runner = val_runner
593
593
cmd% runner_args = val_runner_args
594
-
594
+
595
595
end select
596
-
596
+
597
597
case (' update' )
598
598
call set_args(common_args // ' &
599
599
& --fetch-only F &
@@ -1576,8 +1576,12 @@ subroutine build_settings(self, list, show_model, build_tests, config_file)
1576
1576
arch = sget(' archiver' )
1577
1577
1578
1578
! Handle --dump default (empty value means use 'fpm_model.toml')
1579
- dump = sget(' dump' )
1580
- if (specified(' dump' ) .and. dump==' ' ) dump = ' fpm_model.toml'
1579
+ if (specified(' dump' )) then
1580
+ dump = sget(' dump' )
1581
+ if (dump==' ' ) dump= ' fpm_model.toml'
1582
+ else
1583
+ dump = ' '
1584
+ endif
1581
1585
1582
1586
if (present (config_file)) then
1583
1587
if (len_trim (config_file) > 0 ) then
@@ -1588,7 +1592,7 @@ subroutine build_settings(self, list, show_model, build_tests, config_file)
1588
1592
else
1589
1593
cfg = sget(' config-file' )
1590
1594
end if
1591
-
1595
+
1592
1596
! Assign into this (polymorphic) object; allocatable chars auto-allocate
1593
1597
self% profile = prof
1594
1598
self% prune = .not. lget(' no-prune' )
0 commit comments