TYPE包含procedure，初始化如何置空

ksfengjia · 发表于 2015-12-21 12:42:35

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

01    module MNodeElement
02    implicit none
03 
04    type,public :: CElementNode
05                    integer :: ChannelLabel = 0
06        type(CElementNodeArray),dimension(:),pointer :: pAdditionalNode => null()               
07    contains       
08        procedure,public :: initNodeElement
09            end type CElementNode
10                 
11                type,public :: CElementNodeArray
12                    type(CElementNode),pointer :: pElementNode
13        end type CElementNodeArray
14                 
15                contains
16                    subroutine initNodeElement(this)
17                            class(CElementNode) :: this
18                                integer :: istat
19                                this%ChannelLabel = 0
20                            allocate(this%pAdditionalNode(6),stat=istat)
21                                if (istat /= 0) then
22                                    print*,"creat pAdditionalNode failed,istat =",istat
23                                end if
24                        end subroutine initNodeElement                                          
25                 
26end module
27         
28           program main
29                   use MNodeElement
30       implicit none
31                       logical :: flag = .false.                               
32                       type(CElementNode) :: pNode
33        
34                       call pNode%initNodeElement()
35                       ! 生成了pAdditionalNode的指针
36                       ! pAdditionalNode=>null()
37                       ! 但是 flag 显示为 .ture.
38       flag = associated (pNode%pAdditionalNode(1)%pElementNode)
39               end program
40                        
41                       

编译环境visual2010+ivf2013：
调试过程值：

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

1pNode%PADDITIONALNODE(1)%PELEMENTNODE%CHANNELLABEL                  Undefined address        INTEGER(4)
2pNode%PADDITIONALNODE(1)%PELEMENTNODE%PADDITIONALNODE          Undefined address        TYPE(CELEMENTNODE_mp_CELEMENTNODEARRAY)
3pNode%PADDITIONALNODE(1)%PELEMENTNODE%INITNODEELEMENT          #BAADF00D                        PROCEDURE

问题
pAdditionalNode指针初始化为空,但associated（pNode%pAdditionalNode%pElement）为.true.，
其中pNode%PADDITIONALNODE(1)%PELEMENTNODE%INITNODEELEMENT过程未初始化，赋值为一个十六进制数
求教，如何将pNode%PADDITIONALNODE(1)%PELEMENTNODE置空

ps：gfortran中这样执行后，pNode%PADDITIONALNODE(1)%PELEMENTNODE是空的