具有字符类型的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函数。

我在ifort 18.0.3上使用centos 7。

Answer 1

我同意这是Intel Fortran的findloc（）实现中的错误。我向开发人员创建了英特尔错误报告。