4

我正在尝试将类型绑定过程作为参数传递给另一个子例程。我想知道这在 Fortran 中是否可行。这是一个代码片段，显示了我正在尝试做的事情。

module type_definitions 
 type test_type 
 integer :: i1, i2,i3
 contains 
   procedure :: add_integers_up 
 end type test_type
 contains 
   subroutine add_integers_up(this,i4,ans)
       class(test_type) :: this 
       integer :: i4,ans 
       ans = this%i1+this%i2+this%i3+i4
    end subroutine add_integers_up

subroutine print_result_of_subroutine(i4,random_subroutine) 
  integer :: i4,ans 

  interface 
     subroutine  random_subroutine(i1,i2) 
       integer:: i1,i2
     end subroutine random_subroutine
  end interface

  call random_subroutine(i4,ans) 
  write(*,*) ans 


end subroutine print_result_of_subroutine


end module type_definitions


program main 
   use type_definitions
   implicit none 
   integer :: i1,i2,i3,i4
   integer :: ans 
   type(test_type) :: test_obj

   i1 =1; i2=2; i3=3
   test_obj%i1 = i1 
   test_obj%i2 = i2 
   test_obj%i3 = i3 
   i4 = 4

   call print_result_of_subroutine(i4,test_obj%add_integers_up) 

    end program main

这可以在 Fortran 中做到吗？当我尝试使用 ifort 编译此代码时出现编译器错误。

4

2 回答 2

6

test_obj%add_integers_up 不是一个过程 - 它是一个绑定，恰好是一个名为 add_integers_up 的过程。您不能将绑定作为实际参数传递。

如果要传递绑定所关联的特定过程，则传递过程！假设：

call print_result_of_subroutine(i4, add_integers_up)

但正如其他海报所指出的，在您的示例代码中，该过程的接口与 print_result_of_subroutine 中相应虚拟参数的接口不匹配。

如果 test_obj%add_integers_up 引用了一个关联的过程指针组件（并且该组件的接口与 print_result_of_subroutine 所期望的相匹配），那么事情就会如您所期望的那样工作。

请注意，Fortran 90 不支持类型绑定过程（或过程指针组件） - 您的代码非常需要 Fortran 2003。

于 2012-07-19T22:54:16.000 回答
3

您没有向我们展示您收到的确切错误消息，我自己也没有尝试您的示例，但我很确定问题是过程虚拟参数的接口与实际的接口不对应传递给它的参数。

更明确地说，random_subroutine被声明为接受两个参数，而test_obj%add_integers_up接受三个参数；即使其中一个用作传递对象的虚拟参数，它仍然算作该过程接口的一部分。

于 2012-07-03T23:18:38.437 回答