'field_type' at (1) has no IMPLICIT type

Tobebetter

原代码：
type, private :: field_type !{
  character(len=fm_field_name_len)                    :: field_type
  character(len=fm_string_len)                    :: field_name
  integer                                             :: model, num_methods
  type(method_type)                                   :: methods(MAX_FIELD_METHODS)
end type field_type !}

编译的平台是linux，GNU上的gfortran
报错信息：
'field_type' at (1) has no IMPLICIT type

猜测，我在这个自定义类型下面看到也有一个field_type的定义但是在另一个自定义类型里面：
type, private :: field_def  !{
  character (len=fm_field_name_len)                   :: name
  integer                                             :: index
  type (field_def), pointer                           :: parent => NULL()
  integer                                             :: field_type
  integer                                             :: length
  integer                                             :: array_dim
  integer                                             :: max_index
  type (field_def), pointer                           :: first_field => NULL()
  type (field_def), pointer                           :: last_field => NULL()
  integer, pointer, dimension(:)                      :: i_value => NULL()
  logical, pointer, dimension(:)                      :: l_value => NULL()
  real, pointer, dimension(:)                         :: r_value => NULL()
  character(len=fm_string_len), pointer, dimension(:) :: s_value => NULL()
  type (field_def), pointer                           :: next => NULL()
  type (field_def), pointer                           :: prev => NULL()
end type field_def  !}



这个会不会有影响呢？

Tobebetter

我已经解决问题，发现是原先那个自定义类型名字的问题，gfortran好像不支持内外名字出现相同的情况，把type, private :: field_type 改成type, private :: field_type_1即可gfortran编译通过。

Tobebetter

怎么设置已解决来着，新手还不是很会操作。

vvt

是的。结构体的名称和成员变量的名称，不能一致。

已解决需要管理员来设置。