command argument is passed to the shell and executed, using the C library’s
system call. (The shell is
sh on Unix systems, and
cmd.exe on Windows.) If
wait is present and has the value false, the execution of the command is asynchronous if the system supports it; otherwise, the command is executed synchronously.
The three last arguments allow the user to get status information. After synchronous execution,
exitstat contains the integer exit code of the command, as returned by
cmdstat is set to zero if the command line was executed (whatever its exit status was).
cmdmsg is assigned an error message if an error has occurred.
Note that the
system function need not be thread-safe. It is the responsibility of the user to ensure that
system is not called concurrently.
Fortran 2008 and later
call execute_command_line(command [, wait, exitstat, cmdstat, cmdmsg ])
command- Shall be a default
wait- (Optional) Shall be a default
exitstat- (Optional) Shall be an
integerof the default kind.
cmdstat- (Optional) Shall be an
integerof default kind.
cmdmsg- (Optional) Shall be an
characterscalar of the default kind.
program test_exec integer :: i call execute_command_line("external_prog.exe", exitstat=i) print *, "Exit status of external_prog.exe was ", i call execute_command_line("reindex_files.exe", wait=.false.) print *, "Now reindexing files in the background" end program test_exec
Because this intrinsic is implemented in terms of the
system function call, its behavior with respect to signaling is processor dependent. In particular, on POSIX-compliant systems, the SIGINT and SIGQUIT signals will be ignored, and the SIGCHLD will be blocked. As such, if the parent process is terminated, the child process might not be terminated alongside.