首次使用linux版本的ifort遇到一个intent(IN) 问题

xiaorenwu · 发表于 2014-7-15 10:25:33

A dummy argument name is required in this context.
integer ,intent(in) :: n就是这个intent

说的是属性说明，但是不知道为什么会报错

fcode · 发表于 2014-7-15 10:30:14

n 如果有 intent(IN) 属性，则必须是虚参。你这个n可能不是虚参

xiaorenwu · 发表于 2014-7-15 10:38:18

fcode 发表于 2014-7-15 10:30
n 如果有 intent(IN) 属性，则必须是虚参。你这个n可能不是虚参

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

program x
 real :: z = 10
 type position
 real :: x
 real :: y
 real :: z
 end type position
 type(position) :: xyz
 xyz = position(1,2,3)
z = fun1(z)
write(*,*) z
contains
real function fun1(x)
real intent(in) :: x
fun1 = (x+xyz%z)/xyz%z
end function fun1
end program x

就是这么一段小程序，就是这个地方卡住了，其实已经遇到好几处这个问题的原因了，就是实参虚参不太明白

vvt · 发表于 2014-7-15 10:43:14

real intent(in) :: x
修改为
real ,intent(in) :: x
也就是加一个逗号

xiaorenwu · 发表于 2014-7-15 10:45:01

vvt 发表于 2014-7-15 10:43
real intent(in) :: x
修改为
real ,intent(in) :: x

太谢谢了，果然是这个问题啊

[子程序] 首次使用linux版本的ifort遇到一个intent(IN) 问题

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章