主页 / coding / 问题

问题[fortran](coding)

Martin Hope
trubliphone
Asked: 2024-09-16 22:02:00 +0800 CST
  • 7

我想将指向函数的指针存储为具有类型的属性。但编译器抱怨函数的第一个参数应该是类型（如Python 或 C++ 等语言中的self或this参数）。但属性只是一个指针 - 它不是类型的一部分。

以下是一些代码：

module my_mod

  implicit none
  public :: my_type

  abstract interface
    ! INTERFACE I WANT TO POINT TO
    subroutine my_interface(arg)
      real, intent(in) :: arg
    end subroutine my_interface
  end interface

  type :: my_type
    ! MY TYPE DEFINITION
    real :: my_variable
    procedure(my_interface), pointer :: my_fn_pointer
  end type my_type

  interface my_type
    ! "CONSTRUCTOR" INTERFACE FOR MY TYPE
    module procedure init_my_type
  end interface

  contains

  type(my_type) function init_my_type(arg1, arg2)
    ! ACTUAL "CONSTRUCTOR" FOR MY TYPE
    real, intent(in) :: arg1
    procedure(my_interface) :: arg2

    init_my_type%my_variable = arg1
    init_my_type%my_fn_pointer => arg2
  end function init_my_type

end module my_mod

我得到的实际错误（ifort 编译器）是：

错误 #8262：对于具有 PASS 绑定属性的类型绑定过程，第一个虚拟参数必须具有与所定义类型相同的声明类型。

我不明白为什么它认为我想要指向的接口是一个类型绑定的过程。

有什么提示吗？

fortran
Martin Hope
bob.sacamento
Asked: 2024-06-02 00:04:11 +0800 CST
  • 5

我有一个主程序和一个模块。我希望主程序在正常情况下使用模块的某些部分，但如果使用“DEBUG”cpp 宏编译，则使用一些添加的元素。这是我发现的使这项工作有效的方法：

    program myprogram
    
    use comp_module, only: data1, routine1 &
    #idef DEBUG
                           , debug_data, debug routine
    #endif
    ;
    ....

如果我不在末尾添加分号，编译器会在未编译进行调试时认为这是一个错误。所以，这有效。

只是它看起来有点不优雅，调试行中有一个前导逗号，后面有一个无用的分号。我可以看到一些开发人员稍后出现，不明白发生了什么，并重新引入编译器错误。

有什么更好的办法呢？

fortran