从带有nagfor的函数返回的过程指针

Question

我尝试在Fortran中使用过程指针作为函数的返回。以下最小代码适用于gfortran（用4.8.1测试），但不适用于nagfor（NAG 6.0）：

function foo() result(f_p)
  implicit none
  procedure(), pointer :: f_p
  f_p => null()
end function foo

nagfor抱怨：

Error: test.f90, line 5: Multiply defined symbol F_P
   detected at ::@F_P
Error: test.f90, line 5: F_P is not a procedure name
   detected at F_P@<end-of-statement>
Warning: test.f90, line 7: Result F_P of function FOO has not been assigned a value
[NAG Fortran Compiler pass 1 error termination, 2 errors, 1 warning]

为什么会这样？

注意：当以这种方式使用过程指针时，我非常清楚内存泄漏的危险。

Answer 1

我在NAG Fortran编译器上工作，我可以确认它还没有实现Fortran 2003的这个功能（返回过程指针的函数）。对该功能的支持暂定在下一个（6.1）版本中提供。