ex1001.f90

Fortran 95程序设计【彭国伦】第10章

program ex1001
  implicit none
  integer, target  :: a=1 ! 声明一个可以当成目标的变量
  integer, pointer :: p   ! 声明一个可以指向整数的指针　
  p=>a ! 把指针p指到变量a
  write(*,*) p
  a=2  ! 改变a的值
  write(*,*) p
  p=3  ! 改变指针p指向的内存内容
  write(*,*) a
  stop
end