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

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

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