＜ASSOCIATED Example Program＞

Program associated_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,j), Associated(i,k), i
End

---

■ Execution Results

 T 1 1 1 1
 F
 F T 3 3 3 3 3 3