ex1001.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 12 行

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