关于intent属性的问题！

mkingx

编写了一个小程序，程序见附录！为了便于说明截了两张图，图一是程序截图，图二是错误提示截图
如果把integer，intent（out）:: z去掉的话，可以编译成功！
所以迷茫intent（out）该怎么用！！！

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

module param
integer :: x,y,z,a,b,c,d
contains

subroutine haha(x,y)
implicit none
integer ,intent(in):: x
integer ,intent(in):: y
integer ,intent(out):: z !// 此处
z=x+y
print*,'z',z
return
end subroutine haha

end module param

program test
use param
implicit none
x=1
y=2
call haha(x,y)

end program test