scope - 为什么类型不可访问？

Question

我正在尝试从 Fortran 函数返回类型。这是代码。

module somemodule
implicit none
! define a simple type
type sometype
   integer :: someint
end type sometype
! define an interface 
interface
   ! define a function that returns the previously defined type
   type(sometype) function somefunction()
   end function somefunction
end interface
contains
end module somemodule

在 gfortran(4.4 和 4.5)中，我收到以下错误:

Error: The type for function 'somefunction' at (1) is not accessible

我将文件编译为:

gfortran -c ./test.F90

我尝试将类型明确公开，但这没有帮助。我打算使用 somefunction 的 C 版本，这就是为什么我把它放在接口(interface)部分。

为什么类型不可访问？

Answer 1

在函数定义中添加导入可以解决此问题。由于许多人认为语言设计中存在错误，定义不会在接口(interface)内部继承。 “导入”会覆盖它以实现合理的行为。

interface
   ! define a function that returns the previously defined type
   type(sometype) function somefunction()
   import
   end function somefunction
end interface