PROGRAM Gosterici_Ornegi
!--------------------------------------------------------
! 11prg01.f95
! ASSOCIATED ve NULLIFY fonksiyonları
!--------------------------------------------------------
 INTEGER, TARGET  :: T1 = 33, T2 = 44
 INTEGER, POINTER :: P

  P => T1 ! P T1'i gösteriyor

  IF(ASSOCIATED(P)) THEN
    PRINT *,"[1]  P T1 T2  : " ,P, T1, T2
  ELSE
    PRINT *,"[1]  P'in bir hedefi yok."
  END IF

  NULLIFY(P) ! P'i boşalt

  IF(ASSOCIATED(P)) THEN
    PRINT *,"[2]  P T1 T2 : " ,P, T1, T2
  ELSE
    PRINT *,"[2]  P'nin bir hedefi yok."
  END IF

  P => T2 ! P şimdi T2'i gösteriyor (hedef değişti)

  IF(ASSOCIATED(P)) THEN
    PRINT *,"[3]  P T1 T2  : " ,P, T1, T2
  ELSE
    PRINT *,"[3]  P'in bir hedefi yok."
  END IF

END PROGRAM