Skip to content

Commit 97a766f

Browse files
committed
intel fix: remaining must be allocated
1 parent 756022c commit 97a766f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/fpm_command_line.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -356,7 +356,7 @@ subroutine get_command_line_settings(cmd_settings)
356356
if (specified('runner') .and. val_runner == '') val_runner = 'echo'
357357

358358
! Run-specific fields
359-
cmd%args = remaining
359+
if (allocated(remaining)) cmd%args = remaining
360360
cmd%example = lget('example')
361361
cmd%name = names
362362
cmd%runner = val_runner
@@ -586,7 +586,7 @@ subroutine get_command_line_settings(cmd_settings)
586586
call build_settings(cmd, list=lget('list'), build_tests=.true., &
587587
config_file=sget('config-file'))
588588

589-
cmd%args = remaining
589+
if (allocated(remaining)) cmd%args = remaining
590590
cmd%example = .false.
591591
cmd%name = names
592592
cmd%runner = val_runner

0 commit comments

Comments
 (0)