|
地板
楼主 |
发表于 2015-4-9 12:50:08
|
只看该作者
具体是这样的,编译有依赖关系
module aaa
use module bbb
function geta(pb) result(aaa)
real:: aaa
......
type(bbb),pointer:: pb
aaa=pb%ccc
end function geta
end module aaa
module bbb
use module aaa
type:: bbb
real:: ccc
.....
contains
procedure:: getb
end type bbb
contains
function getb
this%ccc=geta()
end function
end module bbb
|
|