fortran - Fortran 中可分配的字符变量

Question

我的代码(精简为我认为与此问题相关的代码)是

PROGRAM test

IMPLICIT NONE

CHARACTER(len=37) input
CHARACTER(len=:), allocatable :: input_trim


WRITE(*,*) 'Filename?'
READ(*,*) input
ALLOCATE(character(len=LEN(TRIM(input))) :: input_trim)
input_trim=trim(input)

.
.
.

END PROGRAM test

它适用于英特尔的 Fortran 编译器，但是 gfortran 给了我几个错误，第一个在行中说

CHARACTER(len=:), allocatable :: input_trim

我不确定哪个编译器对于 Fortran 标准是“正确的”。另外我不知道如何以不同的方式实现我需要的东西？!我认为无论如何我正在做的更多是一种解决方法。我需要的是一个字符变量，它包含输入的文件名，没有后面的空格。

编辑:错误是“字符声明中的语法错误”。
gfortran --version 给了我“GNU Fortran (GCC) 4.4.7 20120313 (Red Hat 4.4.7-3)”

编辑 2:关于分配，你是对的:有了 ifort，我不需要它。并且 gfortran 在此之前崩溃了，所以也许它也不需要分配，但我目前无法对此进行测试......

Answer 1

这个

character (len=:), allocatable :: input_trim

在 Fortran 2003 中语法上肯定是正确的。你不说 gfortran 是什么错误。 raises 是，所以我无法评论为什么它不接受该行——也许您安装了旧版本的编译器。

使用最新的 Fortran 编译器(例如 Intel Fortran v14.xxx)，您无需在分配字符变量之前分配它的大小，您只需编写

input_trim = trim(input)

注意

read(*,*) input_trim

不会工作。