ex1003.f90

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

program  ex1003
  implicit none
  integer, pointer :: a=>null()
  integer, target  :: b=1,c=2

  write(*,*) associated(a)   ! FALSE, 指针a尚未指定
  a=>c 
  write(*,*) associated(a)   ! TRUE, 指针a已指定
  write(*,*) associated(a,c) ! TRUE, 指针a指向c
  write(*,*) associated(a,b) ! FALSE, 指针a不指向b
  nullify(a)                 ! 把指针a设为没有指向
  write(*,*) associated(a)   ! FALSE, 指针a尚未指定

  stop
end