过程绑定中的通用接口冲突问题

lookbook

[Fortran] 纯文本查看 复制代码

module m_haha
  implicit none
  type t_haha
     integer :: a
   contains
     procedure :: test1
     procedure :: test2
     procedure :: test3
     generic :: test=>test1,test2,test3
  end type t_haha
contains
  subroutine test1(this,i)
    implicit none
    class(t_haha),intent(inout) :: this
    integer,intent(in) :: i

    this%a=i

    return
  end subroutine test1

  subroutine test2(this,a)
    implicit none
    class(t_haha),intent(inout) :: this
    integer,intent(in) :: a(0:3)

    this%a=sum(a)

    return
  end subroutine
  subroutine test3(this,a)
    implicit none
    class(t_haha),intent(inout) :: this
    integer,intent(in) :: a(3)

    this%a=sum(a)

    return
  end subroutine
end module m_haha

program main
  use m_haha
  implicit none

  type(t_haha) :: one


  call one%test1(1)
  print*,one%a

  call one%test2([0,1,2,3])
  print*,one%a

  call one%test3([1,2,3])
  print*,one%a
end program main

使用gfotran编译报错，错误原因，test2，test3接口冲突
改用pgi编译，正常。

很迷。。。。是我对重载的理解有问题吗？

lookbook

vvt 发表于 2020-8-11 08:43
编译器在 generic name 中选择合适的interface procedure 调用。发生在编译时，而不是发生在运行时。
只有 ...

如果输入是a(:)，那么出现ambiguous我认，但a(4)，a(3)显然在编译的时候是应当可以被确定的。
module中的函数相当于给出了explicit，那么当实际输入变量大小和哑元大小不符合时就会报错，所以，为什么这个重载就不可以？

lookbook

chiangtp 发表于 2020-8-10 21:50
Windows Absoft/Compaq/Intel/NAG/Silverfrost/NAG/G95 都是
test2，test3接口冲突: "test2" is not disti ...

感谢您回复，看起来PGI自己标准都不一致啊

lookbook

vvt 发表于 2020-8-11 17:42
你说的“实际输入变量大小和哑元大小不符合时就会报错”，是运行时错误，也是在运行时才做的检查。
但决 ...

我明白你的意思了，十分感谢！