在Fortran中使用派生类型指针和多态目标

Question

下面列出的Fortran函数使用ifort 11.1按预期进行编译和执行。 但是GFortran 4.6返回编译器错误：

THIS_NML =>这
错误：（1）处的指针分配类型不同； 尝试将CLASS（UNIT）分配给TYPE（UNIT）。

Fortran代码：

FUNCTION PROCESS_COMMAND(THIS, CMD, DATA) RESULT(RET)
   CLASS(UNIT), INTENT(INOUT), TARGET :: THIS
   CHARACTER(LEN = *), INTENT(IN)     :: CMD
   CHARACTER(LEN = *), INTENT(IN)     :: DATA
   CHARACTER(LEN = 200)               :: STRING
   INTEGER                            :: IOS
   TYPE(UNIT), POINTER                :: THIS_NML

   ! CREATE A NAMELIST
   NAMELIST /VARS/ THIS_NML
   THIS_NML => THIS  
   RET = 0
   STRING = '&VARS THIS_NML%' // TRIM(CMD) // ' = ' // TRIM(DATA) // ' /'

   ! READ CMD AND DATA
   READ(STRING, NML=VARS, IOSTAT=IOS)
   RET = IOS

END FUNCTION PROCESS_COMMAND

由于不能使用多态对象创建名称列表，因此派生类型指针THIS_NML用于创建名称列表。 关于如何使GFortran发挥作用的任何想法？

Answer 1

尝试使用select type构造。 就像是

select type ( A => THIS )
   type is ( UNIT )
      Here you can treat A as nonpolymorphic variable of type UNIT (if the test is succesful).
end select