PROGRAM Gosterici_Ornegi
!--------------------------------------------------------
! 11prg01.f95
! Gösterici Örneği
!--------------------------------------------------------

 INTEGER, TARGET  :: Tam = 33
 INTEGER, POINTER :: PTam

  PTam => Tam ! PTam Tam'ı göstriyor

  PRINT *,"PTam Tam  : " ,PTam, Tam

  PTam = 66   ! Tam = 66 anlamında

  PRINT *,"PTam Tam  : " ,PTam, Tam

END PROGRAM