Program MainTarget
  Implicit None
  Character(4), Target :: myname='SHIN'
  Character(4), Pointer :: yourname

  yourname => myname
  Print *, Associated(yourname, myname)
End Program MainTarget