求助：怎么解决 error #7983

vvt

实参比虚参少~~
实参的长度，必须等于或大于虚参的长度。

vvt

比如

[Fortran] 纯文本查看 复制代码

subroutine build_team(a)
  real :: a(7)
end subroutine build_team

program main
  real :: x(6)
  call build_team(x)
end program main

实参 x 大小为6，虚参 a 大小为 7。显然 6 < 7。
一般实参是可以比虚参大的，但不能比虚参小。

你可以这样理解，build_team函数用来组建一个球队，它需要7个人（虚参 a ）。
如果某个队伍 x（实参）想要组建一个球队，它必须大于等于7个人。