module sub
interface xxx
module procedure aaa
module procedure bbb
end interface
contains
Integer Function aaa(x)
integer x
aaa = 3 * x
end function aaa
real Function bbb(x)
real x
bbb = 3.0 * x
end function bbb
end module sub
program u
use sub
write(*,*) xxx(3) , xxx(3.0)
end program u
内容全部来源于网络收集，如有侵权，请联系网站删除！