1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module nullify_05_type
contains
subroutine OBJ()
end subroutine
end module
module nullify_05_mod
use nullify_05_type
type PROB_T
procedure(OBJ), nopass, pointer :: calfun_struct => null()
end type PROB_T
procedure(OBJ), pointer :: calfun_ext
end module
program nullify_05
use nullify_05_mod
use nullify_05_type
procedure(OBJ), pointer :: calfun
type(PROB_T) :: calfun_2
calfun_2 % calfun_struct => OBJ
nullify(calfun_2 % calfun_struct)
calfun => OBJ
nullify(calfun)
calfun_ext => OBJ
nullify(calfun_ext)
if (associated(calfun)) error stop
if (associated(calfun_ext)) error stop
end program
|
