求助：怎么解决 error #7983

Rona · 发表于 2022-2-21 18:39:07

求助：怎么解决 error #7983: The storage extent of the dummy argument exceeds that of the actual argument. [PG2O]

vvt · 发表于 2022-2-22 08:30:34

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

Rona · 发表于 2022-2-23 11:05:21

vvt 发表于 2022-2-22 08:30
实参比虚参少~~
实参的长度，必须等于或大于虚参的长度。

可以说的更具体一点吗，小白不懂

vvt · 发表于 2022-2-23 15:39:34

本帖最后由 vvt 于 2022-2-23 15:44 编辑

比如

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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个人。

Rona · 发表于 2022-2-28 14:45:58

vvt 发表于 2022-2-23 15:39
比如
[mw_shl_code=fortran,true]subroutine build_team(a)
real :: a(7)

明白，感谢感谢

[编辑器] 求助：怎么解决 error #7983