Fortran 的 findloc 与字符类型

Question

我对带有字符数组的 findloc 内在函数感到困惑。方案

print *, findloc(['AB'],'A',dim=1)
end

输出

           1

虽然我预计0。

我认为 findloc 搜索相等性，并且 'A'/= 'AB'。如果我将标量值设置为与数组相同类型，那么我确实得到了我所期望的结果: findloc(['AB'],'A ',dim=1) 给出 0。

请注意，findloc(['BA'],'A',dim=1)确实给出了0，所以我不认为findloc 使用 index 函数。

我在 centos 7 上使用 ifort 18.0.3。

Answer 1

我同意这是英特尔 Fortran 的 findloc() 实现中的一个错误。我向我们的开发人员创建了一份英特尔错误报告。