fortran - 可以在没有任何长度规范的情况下声明 Fortran 中的多字符常量吗？

Question

我在编程的介绍性类(class)中被告知
Fortran95 中的字符常量可以声明为没有任何长度
规范，例如:

character, parameter :: STR = 'Hello World!'

在 Stephen J. Chapman 的书“Fortran
95/2003 为科学家和工程师”(第 34 页)，其中说

If the named constant is of type CHARACTER, then it is not necessary to declare the length of the character string. Since the named constant is being defined on the same line as its type declaration, the Fortran compiler can directly count the number of characters in the string. For example, the following statements declare a named constant error_message to be the 14-character string ‘Unknown error!’.

CHARACTER, PARAMETER :: ERROR_MESSAGE = 'Unknown error!'

我知道可以使用 (len=*) .但实际上是吗
可以完全省略长度选择器吗？

当我用 GFortran 和 Intel 编译器测试它时，值是
总是截断到第一个字符。有没有其他编译器
支持这个？或者有人可以指点我到 Fortran 的一部分
哪个标准澄清了这一点？

Answer 1

由 Fortran 2008 Standard , character如果未指定长度，则长度为 1。这在 Cl 中给出。 4.4.3.2“字符类型说明符”:

4 [...] If the length is not specified in a char-selector or a * char-length, the length is 1.

这与它是字符变量还是命名常量无关。这实际上发生在您的代码中。

相同的行存在于 Fortran 95 Standard 中并在 Fortran 90 Standard ，氯。 5.1.1.5 在两个文件中。

我猜查普曼从 FORTRAN 77 Standard 获取他的信息，氯。 4.8.1 字符常量，尽管本节不涉及命名常量:

The length of a character constant is the number of characters between the delimiting apostrophes, except that each pair of consecutive apostrophes counts as a single character. The delimiting apostrophes are not counted. The length of a character constant must be greater than zero.

除此之外，我在任何标准或编译器文档中都找不到任何引用来支持 Chapman 的声明。