vvt 发表于 2019-1-18 09:03
下次提问，请给出代码（文字，而非图片）
（反正我是不愿意再把代码敲一次的）

感谢提醒，
1、两个文件文件里都有属性为private的zero函数
2、过程指针比较奇怪，必须接口严格对上，哪怕是父类子类，都不可互指

我使用的是gfortran

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

你的问题：
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 类型的。

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