In FeynCalc 8.2 this works fine:
$LoadFeynArts = False;
Needs["HighEnergyPhysics`FeynCalc`"];
FI;
FCE@OneLoop[k,
FeynAmpDenominator[PD[(k - p), 0], PD[(k - p), m], PD[k, 0],
PD[k, m]]*SP[p, k]^3, OneLoopSimplify -> True, CancelQP -> True]
gives
I*Pi^2*((3*A0[m^2]*SP[p, p])/(4*m^2) - (3*B0[SP[p, p], 0, m^2]*SP[p, p])/4 +
(B0[SP[p, p], 0, 0]*SP[p, p]^3)/(8*m^4) - (B0[SP[p, p], 0, m^2]*SP[p, p]^3)/
(4*m^4) + (B0[SP[p, p], m^2, m^2]*SP[p, p]^3)/(8*m^4))
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST