Fortran Coder

查看: 131|回复: 2

[面向对象] 一个关于继承的问题

[复制链接]

42

帖子

11

主题

0

精华

熟手

F 币
201 元
贡献
130 点
发表于 2019-1-9 00:28:55 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
module m_father
  implicit none
  type,abstract :: t_father
     integer :: a
   contains
     procedure(equation),pass(this),deferred :: equation
  end type t_father

  abstract interface
     module subroutine equation(this,other)
       implicit none
       class(t_father),intent(inout) :: this
       class(t_father),intent(in) :: other
     end subroutine
  end interface

  private equation
end module m_father

module m_son_1
  use m_father
  implicit none
  type,extends(t_father) :: t_son_1
     integer :: b
   contains
     procedure,pass(this) :: equation
     procedure,pass(this) :: equation_own

     generic,public :: assignment(=) => equation,equation_own
  end type t_son_1

  private equation
contains
  subroutine equation(this,other)
    implicit none
    class(t_son_1),intent(inout) :: this
    class(t_father),intent(in) :: other

    this%a=other%a
  end subroutine equation

  subroutine equation_own(this,other)
    implicit none
    class(t_son_1),intent(inout) :: this
    class(t_son_1),intent(in) :: other

    this%a=other%a
    this%b=other%b
  end subroutine equation_own
end module m_son_1

module m_son_2
  use m_father
  implicit none
  type,extends(t_father) :: t_son_2
     integer :: c
   contains
     procedure,pass(this) :: equation

     generic,public :: assignment(=) => equation
  end type t_son_2

  private equation
contains
  subroutine equation(this,other)
    implicit none
    class(t_son_2),intent(inout) :: this
    class(t_father),intent(in) :: other

    this%a=other%a
  end subroutine equation
end module m_son_2

program main
  use m_son_1
  use m_son_2
  implicit none

  type(t_son_1) :: a
  type(t_son_2) :: b
  b%a=1

  a=b
  call a%equation(b)
  print *,a%a

end program main

我写的代码如上,目的是实现等号功能,
1、如果等号左边是某个继承类,而右边是同一个父类的其他继承类,则a想等。
2、如果等号左边是某个继承类,而右边是该继承类的子类,则a,b相等。

在加入红色字符之后,上面程序会引起冲突:Ambiguous interfaces in intrinsic assignment operator for ‘equation’ at (1) and ‘equation_own’ at (2)
还望组里大大不吝赐教,小弟十分感谢。



回复

使用道具 举报

42

帖子

11

主题

0

精华

熟手

F 币
201 元
贡献
130 点
 楼主| 发表于 2019-1-9 12:42:38 | 显示全部楼层
问题已经解决,使用select type... class is() ...class is() ...end select 即可

317

帖子

1

主题

0

精华

宗师

F 币
1725 元
贡献
1144 点
发表于 2019-1-10 20:53:18 | 显示全部楼层
不吝赐教,希望学习一下改后的代码。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-3-26 13:55

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表