[重制]Fortran执行Shell

Fortran 是一种古老的编程语言，它并没有提供直接执行 shell 命令的功能。但是，可以使用 Fortran 的系统函数调用功能来调用操作系统提供的函数来执行 shell 命令。

program main
  implicit none
  character(100) :: cmd_string = "dir"
  character(255) :: cmd_line
  integer :: status_code

  ! 将命令字符串拼接到 cmd_line 中
  cmd_line = "cmd /c " // trim(cmd_string)

  ! 调用 system 函数执行命令
  status_code = system(cmd_line)

  ! 输出结果
  write(*,*) "Command exited with status code: ", status_code
end program main

这个示例使用了 Fortran 的 system() 函数来执行 dir 命令，并获取其退出代码。首先，将命令字符串拼接到包含 cmd /c 前缀的字符串中，这将指示操作系统启动命令行解释器来执行命令。然后，使用 system() 函数执行命令，并使用 status_code 存储退出代码，并使用 write() 函数输出到控制台。

需要注意的是，Fortran 是一种过时的编程语言，已经很少使用了。在现代化的应用程序开发中，建议使用更加常见、流行和现代的编程语言和工具来执行 shell 命令。