0

我正在尝试在 Fortran 中使用多态性,但我在分配类型时遇到了问题。我不知道如何使这项工作。英特尔编译器抛出此错误:

error #6460: This is not a field name that is defined in the encompassing structure.
analitic%param%a0=2
---------------^

这是一个最小的例子:

program new

implicit none

integer, parameter    :: dp = kind(1.0d0)

type :: potential
  class(*),allocatable                        :: param
endtype

type(potential)          :: analitic
type  :: pa1d_param
  real(dp)     :: a0
  real(dp)     :: b0
end type

allocate(pa1d_param::analitic%param)

analitic%param%a0=2.0_dp     

end program

这里有什么问题?

谢谢!

4

1 回答 1

2

通过声明paramas class(*),您声明了一个无限的多态对象。这些不能以正常方式引用 - 它们只能用作实际参数、指针或指针赋值中的目标,或用作select type语句中的选择器(16.3.1,Fortran 95/2003 解释,Metcalf 和 Reid)。

为了按照您的意图执行此操作,您必须以param这种方式声明:(使用 ifort 12.0.2.137 编译并产生正确的输出)

program new

 implicit none

 integer, parameter :: dp = kind(1.0d0)

 type pa1d_param
   real(dp) :: a0
   real(dp) :: b0
 end type pa1d_param

 type :: potential
   class(pa1d_param),allocatable :: param
 endtype

 type(potential)          :: analitic

 allocate(analitic%param)

 analitic%param%a0 = 2.0_dp

 write(*,*)analitic%param%a0

end program
于 2012-04-18T21:32:18.470 回答