Program MainPointer
  Implicit None
  Integer, Pointer :: a, b

  Allocate(a,b) ; a = 1 ; b = 3 ! a¿Í b¸¦ PointÇü Integer·Î ¼±¾ð
  Print *, 'a, b =', a, b
  a = b+3 ;        Print *, 'a, b =' , a, b
  a = b ; b = 5 ;  Print *, 'a, b =' , a, b
  a => b ; b = 7 ; Print *, 'a, b =' , a, b  ! a=>b  a¸¦ b¿Í µ¿ÀÏÇÏ°Ô ÇÒ´ç
  b => a ; a = 9 ; Print *, 'a, b =' , a, b
End Program MainPointer