2 ! PR 82233 - there were program aborts for some of these commands.
3 ! Original test case by Urban Jost.
7 character(len
=256) :: msg
8 character(len
=:), allocatable
:: command
10 msg
='' ! seems to only be defined if exitstatus.ne.0
12 call execute_command_line(command
, wait
=.false
., exitstat
=i
, cmdstat
=j
, cmdmsg
=msg
)
13 if (j
/= 0 .or
. msg
/= '') STOP 1
14 call execute_command_line(command
, exitstat
=i
, cmdstat
=j
, cmdmsg
=msg
)
15 if (j
/= 3 .or
. msg
/= "Invalid command line" ) STOP 2
17 call execute_command_line(command
, wait
=.false
., exitstat
=i
, cmdmsg
=msg
)
19 call execute_command_line(command
, wait
=.false
., exitstat
=i
)
21 call execute_command_line(command
, exitstat
=i
, cmdstat
=j
)