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
DeepinScreenshot20141028154920.png (84.41 KB, 下载次数: 221)
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |