fortran - Fortran 从变量定义参数

Question

我希望定义一个不会在我的模块中从输入变量更改的参数。

例子

module foo
    contains
    subroutine function1(external_var)
       integer, parameter x = external_var(1)
       write(*,*) x
    end subroutine function1
end module foo

但是，这会产生错误。

PGF90-S-0087-Non-constant expression where constant expression required

标签： fortranfortran90