ex1003.f90

来自「正在从事科学计算的朋友学习fortran必备的书籍」· F90 代码 · 共 14 行

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尚未指定
end