program ch1803a
implicit none
real , target :: t1 = 21
real , target :: t2 = 30
real , pointer :: p1 => null(),p2 => null()
  p1 => t1
  p2 => t2
  print * , ' p1 = ' , p1 , ' p2 = ' , p2
  p1=p2					! equivalent to t1 = t2
                     ! but use aliases instead
  print * , ' p1 = ' , p1 , ' p2 = ' , p2
  print * , ' t1 = ' , t1 , ' t2 = ' , t2
  nullify(p1)
  nullify(p2)
end program ch1803a