Fortran Coder

标题: 求助：怎么解决 error #7983 [打印本页]

作者: Rona 时间: 2022-2-21 18:39
标题: 求助：怎么解决 error #7983
求助：怎么解决 error #7983: The storage extent of the dummy argument exceeds that of the actual argument. [PG2O]

emperical.for

349.19 KB, 下载次数: 1

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

作者: Rona 时间: 2022-2-23 11:05

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

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

作者: vvt 时间: 2022-2-23 15:39
本帖最后由 vvt 于 2022-2-23 15:44 编辑

比如

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

作者: Rona 时间: 2022-2-28 14:45

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

明白，感谢感谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)