FORTRAN 的 LEN_TRIM 对传递的参数的行为是否有所不同？

Question

我有以下 FORTRAN

  SUBROUTINE SETPATHS(INPUT)
  !DEC$ ATTRIBUTES DLLEXPORT::SetPaths

  CHARACTER*20 INPUT
  CHARACTER*20 DIRECTORY

  DIRECTORY = 'ABCDEFG'

  WRITE(6, *) 'INPUT LEN_TRIM = ', LEN_TRIM(INPUT)
  WRITE(6, *) 'DIRECTORYLEN_TRIM = ', LEN_TRIM(DIRECTORY)

  END SUBROUTINE

我正在从 C# 调用该函数，并传入“ABCDEFG”。

当我在调试器上设置断点时，INPUT 和 DIRECTORY 具有完全相同的字符。两者都有“ABCDEFG”，后跟相同数量的尾随空格。

但是，程序输出

  INPUT LEN_TRIM = 20
  DIRECTORYLEN_TRIM = 7

这是正确的行为吗？如果两个字符串具有相同的值，为什么 LEN_TRIM 给出不同的结果？

更新：我发现了这个已记录的问题（尽管它不是我的 Intel 8.1 编译器）。 http://support.microsoft.com/kb/89131

Answer 1

sbo@dhcp-045:~ $ ./a.out 
 INPUT LEN_TRIM =            7
 DIRECTORYLEN_TRIM =            7
sbo@dhcp-045:~ $ more test.f90 
SUBROUTINE SETPATHS(INPUT)

CHARACTER*20 INPUT
CHARACTER*20 DIRECTORY

DIRECTORY = 'ABCDEFG'

WRITE(6, *) 'INPUT LEN_TRIM = ', LEN_TRIM(INPUT)
WRITE(6, *) 'DIRECTORYLEN_TRIM = ', LEN_TRIM(DIRECTORY)

END SUBROUTINE
program test
    character*20 foo
    foo = "ABCDEFG"
    call setpaths(foo)
end program

你使用什么编译器？这里是gfortran。

也尝试过 ifort，

$ ifort -v
Version 8.0
$ ifort test.f90
$ ./a.out 
 INPUT LEN_TRIM =            7
 DIRECTORYLEN_TRIM =            7

我不知道 C# 接口如何引入问题，但 LEN_TRIM 的语义非常简单...如果你说字符串在调试中显示为相等，那么就会出现一些非常可疑的情况。

Answer 2

它可能正在寻找终结符字符 char(0)。它可能与 \n 字符不同，

其他可能性是字符串长度未正确传递。 Fortran 77 字符串作为两个值传递：字符串指针和字符串长度。没有标准如何传递字符串长度，大多数编译器最后将其作为隐藏参数。为了兼容性，90 可能会做同样的事情。

Answer 3

通过使用尾随空格显式填充 C# StringBuilder，LEN_TRIM 的行为符合预期。 此 Microsoft 知识库似乎是相关的。

然而，奇怪的是，在调试器中，甚至在我进行显式填充之前就出现了尾随空格。