类成员是过程指针的问题

vvt

下次提问，请给出代码（文字，而非图片）
（反正我是不愿意再把代码敲一次的）

你的问题：
procedure(method_) , nopass , pointer :: zero_son => zero
这句。

zero_son 的接口是 m_son::method_ 因此要求 this 是 t_son 类型。
指向的 zero 是 m_father::zero，他的接口是 m_father::method_ ， 要求 this 是 t_father 类型的。

子类的指针不能指向父类的过程。（反之可以）