让 Fortran 中的函数返回一个可以放置在赋值左侧的引用

正如标题所述，我想要directly修改我通过从函数检索的指针访问的数据。函数返回的引用出现在 l.h.s 上。赋值（=）在 C++ 中没有问题，但 Fortran 中的以下最小示例会出错：

module test_mod
  implicit none

  integer, target :: a=1, b=2, c=3 ! some member variables

contains

  function get(i)
    integer, pointer :: get
    integer, intent(in) :: i

    select case (i)
      case (1)
        get => a
      case (2)
        get => b
      case (3)
        get => c
    end select 
  end function get

end module test_mod

program test
  use test_mod
  implicit none
  integer, pointer :: i_p

  !> prints out 1 2 3
  print*, get(1), get(2), get(3)

  !> this is what I want but I get the error
  !> Error: 'get' at (1) is not a variable
  get(2) = 5

  !> this works but is not what I want
  i_p => get(2)
  i_p = 5

end program test

有什么办法可以实现这种行为吗？也许我缺少一些属性？我想绕过编写任何设置器例程，例如

set(i,value)

因为它应该模仿数组的外观。 在我的应用程序中，成员变量a,b,c实际上是不同大小的数组

a = [a1, a2, a3]
b = [b1, b2]
c = [c1]

我想要吸气剂get(i,j)模仿指针矩阵

        j = 1   2   3

i = 1:   [[a1, a2, a3],
i = 2:    [b1, b2, XX],
i = 3:    [c1, XX, XX]]

wehre XX将参考null().

Update:我使用的是 gfortran（版本 5.2.0），部署计算机只有从 4.6.x 及更高版本开始的版本。因此，不幸的是，建议的 fortran 2008 标准功能对我来说不可用。是否可以在没有开箱即用的编译器支持的情况下模仿上述行为？

更新2：所以我最终实现了如下结构

type Vec_t
  integer, allocatable, dimension(:) :: vec
end type Vec_t
type(Vec_t), allocatable, dimension(:), target :: data

我像这样初始化（我在最后提到的我的三角矩阵应用程序）

allocate(data(max))
do i=1,max
  allocate(data(i)%vec(i))
end do

我通过以下方式访问和写入它

print*, data(2)%vec(1)
data(2)%vec(1) = 5

这并不完全是我想要的，但对于我的申请来说已经足够了。

让我们看看您想要做什么：

get(2)=5

和错误消息

错误：(1) 处的“get”不是变量

这看起来很全面：你不能做你想做的事。也许...

get(2)根据 Fortran 2003 的规则，确实不是变量。在 Fortran 2003 中，变量由规则 R601 和 R603 给出，它是指示符列表。

赋值的左侧必须是变量。

但是看看 Fortran 2008 及其变量的定义。现在，变量可以是相同的指示符之一（或者与协数组或复杂部分相关的指示符），但它也可以（C602 到 R602）是函数引用，

应有一个数据指针结果。

Fortran 2008 的介绍对此进行了总结，详细介绍了 Fortran 2003 的扩展，如下

指针函数引用可以表示任何变量定义上下文中的变量。

get(2)是对具有数据指针结果的函数的引用。get(2)根据 Fortran 2008 的规则，then 可能出现在赋值语句的左侧。

唉，Fortran 的这种解释是没有得到广泛支持 http://dx.doi.org/10.1145/2808700.2808703由当前编译器：在仅回答 Cray 编译器时。

这意味着这个答案实际上是说你有两个选择：切换编译器或等到这个功能更广泛。由于这两种方法都可能不切实际，因此您可能需要另一个答案，该答案可以提供稍微更便携的解决方法。

^{I prefer my link to that http://fortranwiki.org/fortran/show/Fortran+2008+status given by innoSPG, as although this latter is based on the former, the description of the appropriate field "Pointer functions - pointer function ref is a variable" is slightly more clear. This is, though, a more accessible document and a viable alternative.}