Integer, Pointer :: i(:,:)
Integer, Target :: j(2,2), k(2,3)
j = 1
k = 3
i => j
Print *,Associated(i), i
Nullify( i )
Print *,Associated(i)
i => k
Print *,Associated(i), i
End
Execution ResultsT 1 1 1 1
F
T 3 3 3 3 3 3
<Example Program>
| Program nullify_example Integer, Pointer :: i(:,:) Integer, Target :: j(2,2), k(2,3) j = 1 k = 3 i => j Print *,Associated(i), i Nullify( i ) Print *,Associated(i) i => k Print *,Associated(i), i End |
|
| Execution Results T 1 1 1 1 F T 3 3 3 3 3 3 |
|