Error: The AUTOMATIC object 'tempparticles' must not have the SAVE attribute...

Neo123

哪位大佬能解答一下我的困惑，为啥会在第8行报错？采用gfortran编译报错，intel fortran 不会报错。

Neo123

[Fortran] 纯文本查看 复制代码

PROGRAM Main
    use ModParticle

    implicit none
    integer::i

    ! Local variables
    type(ParticleType(x))::TempParticles

    do i = 1, 1
        TempParticles = CopyParticle(i)
    end do

    write(*,*) TempParticles
END PROGRAM Main

[Fortran] 纯文本查看 复制代码

module ModParticle
    implicit none
    integer::x=1
        type ParticleType(n)
        integer(4), len :: n
          !> Particle mass [kg] (corresponds to the gas density)(fixed during simulation - ensures conservation of mass)
        real(4),allocatable:: MassGas(:)
    end type
    contains ! Routines of this module

type(ParticleType(x)) function CopyParticle( ID)
    implicit none
    integer(4), intent(in) ::  ID
    CopyParticle%MassGas = 0.1
write(*,*) CopyParticle%MassGas
end function


end module

Neo123

感谢这个部分懂了
作为一个编程小白还想问一个问题，如果放弃参数化，怎么实现将结构体备份，如下所示

subroutine Copytype(TempParticles, CopyTempParticles)
implicit none
CopyTempParticles%MassGas = TempParticles%MassGas
end subroutine Copytype