如何在 Fortran 中复制未知类型的数据？

Question

现在假设我在一个模块（称为模块 A）中有一个类型 data

type::data
endtype

定义为空。将来我会将它扩展到任何类型，例如：

type,extends(data)::newdata
   ...(something general data )
endtype

现在我想要在模块 A 中定义一个进程来复制 newdata 类型。可能吗？如下：

subroutine copyBtoA(A,B)
 class(data),pinter::A
 class(data)::B
 A <- B
endsubroutine

即使我们不知道newdata 的类型是什么样的，这里A 是一个指针，我想我们可以通过某种方式根据B 分配它？

---

更清楚地说，我想做的是定义一个列表结构。因为它是一个结构，所以类型 data 还没有定义（在模块 A 中）。但是我想定义一个函数来复制数据类型。关键是我想复制一个尚未定义的数据。逻辑上看起来有点奇怪。

当调用子程序copyBtoA 时，输入A 和B 实际上是newdata 类型。在 moduleA 中，A 尚未分配。如果在定义中我使用Allocate(A)，我认为它是data 类型。那么A=B 是不可能的。如果我使用select type，那么我还不知道类型。

!---------------------------example code---------------

module moduleA
   type::data
   endtype
 contains
   subroutine copyBtoA(A,B)
     type(data),allocatable::A
     type(data)::B
     !-------------------
     A = B
   endsubroutine
endmodule

module moduleB
  use moduleA
  type,extends(data)::newdata
     real::something
  endtype
endmodule

program main
use moduleB
!
type(newdata),allocatable::data2
type(newdata)::data1
data1%something = 1.
! call copyBtoA(data2,data1)
endprogram

Answer 1

使用非多态变量确实没有问题，至少对于您显示的程序。

也许您的代码并没有真正显示出真正的预期用途？您首先谈到了一些列表结构，最后您只展示了一些简单的程序......

你可以只使用默认分配

type(newdata),allocatable::data2
type(newdata)::data1
data1%something = 1.

data2 = data1

在 Fortran 2008 中，即使使用 多态，您也可以做到这一点，这意味着您不能直接看到 type(newdata)

class(data),allocatable::data1,data2
class(data)::data1
allocate(newdata::data1)

data2 = data1

够了。

在 gfortran 中尚不支持此功能。你必须这样做

class(data),allocatable::data1,data2
class(data)::data1
allocate(newdata::data1)

allocate(data2, source = data1)

总是有可能通过用户定义的子程序来覆盖分配，但这里实际上没有必要。您可能还必须为类型 newdata 定义分配。

---

但请记住，所有这些都是复制价值。在您的第一个代码 sn-p 中，您有一个指针。使用指针时，您通常会进行指针分配 =>，这是另一回事。