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