Fortran 指针关联状态

nullify(p1, ...)

检验指针是否关联：

status = associated(p1, *t1)

可以在声明的同时将其置为空状态：

real, pointer :: p1 => null()