Fortran Wiki
printer_example

program pointer_example
  implicit none
  real, target  :: a,b,c
  real, pointer :: p,q

  a=20
  b=13
  c=17

  p=>a
  q=>b

  print*,'p',p
end program