首先明确：你代码里给派生类型成员fname_new添加OPTIONAL属性是不合规的。Fortran标准规定，OPTIONAL属性仅适用于子程序、函数的哑元参数，不能用于派生类型的内部成分——绝大多数编译器遇到这种写法都会直接报错。

接下来针对你的需求（根据source的类型1或2选择性包含fname_new），给你几个实用的替代方案：

方案1：用特殊值标记未使用的成分 #

最简单的处理方式是保留fname_new作为派生类型的固定成员，当source为类型1时，用空字符串或特定占位符（比如'UNUSED'）标记该成分未被使用。使用时通过检查source的值或fname_new的内容来决定是否处理它。

示例代码：

TYPE, PUBLIC :: species
    CHARACTER(LEN=12) :: spname
    CHARACTER(LEN=12) :: source
    CHARACTER(LEN=20) :: fname
    CHARACTER(LEN=12) :: field
    CHARACTER(LEN=20) :: fname_new  ! 移除OPTIONAL属性
END TYPE species

! 使用示例
TYPE(species) :: sp1, sp2

! 类型1的物种，标记fname_new为未使用
sp1%source = 'TYPE1'
sp1%fname_new = ''

! 类型2的物种，正常赋值fname_new
sp2%source = 'TYPE2'
sp2%fname_new = 'new_file.dat'

! 后续处理逻辑
IF (sp%source == 'TYPE2' .AND. sp%fname_new /= '') THEN
    ! 处理fname_new的逻辑
END IF

方案2：使用派生类型继承（扩展类型） #

如果你的两种物种类型需要严格区分，推荐用Fortran的类型继承特性，定义一个包含通用成分的基类型，再针对类型2的物种扩展出包含fname_new的子类型。这种方式更符合面向对象的设计思路，代码可读性和可维护性更好。

示例代码：

! 基类型：包含所有物种的通用成分
TYPE, PUBLIC :: species_base
    CHARACTER(LEN=12) :: spname
    CHARACTER(LEN=12) :: source
    CHARACTER(LEN=20) :: fname
    CHARACTER(LEN=12) :: field
END TYPE species_base

! 扩展类型：专门用于source=TYPE2的物种，添加fname_new
TYPE, PUBLIC, EXTENDS(species_base) :: species_type2
    CHARACTER(LEN=20) :: fname_new
END TYPE species_type2

! 使用示例
TYPE(species_base) :: sp_type1
TYPE(species_type2) :: sp_type2

sp_type1%source = 'TYPE1'
! sp_type1没有fname_new成员，自然不需要处理

sp_type2%source = 'TYPE2'
sp_type2%fname_new = 'new_file.dat'

如果需要统一处理两种类型的对象，可以用多态变量（比如CLASS(species_base), ALLOCATABLE :: sp）来动态分配不同的类型实例。

方案3：使用联合类型（Fortran 2018+） #

如果你的两种物种类型差异较大，还可以用Fortran 2018引入的联合类型（TYPE UNION），把不同类型的专属成分放在联合体内。不过这种方式相对复杂，适合成分差异显著的场景：

示例代码：

TYPE, PUBLIC :: species
    CHARACTER(LEN=12) :: spname
    CHARACTER(LEN=12) :: source
    CHARACTER(LEN=20) :: fname
    CHARACTER(LEN=12) :: field
    ! 定义联合类型，包含两种物种的专属成分
    TYPE UNION
        TYPE :: type1_specific
            ! 类型1无专属成分，留空
        END TYPE type1_specific
        TYPE :: type2_specific
            CHARACTER(LEN=20) :: fname_new
        END TYPE type2_specific
    END TYPE UNION
END TYPE species

使用时需要严格根据source的值来访问对应的联合成员，避免越界访问未定义的成分。

内容的提问来源于stack exchange，提问作者jkp