Exp[-a^2](Erfi[a]-Log[-1/a]-Log[a])/a

f[d_]:=(1/(2 Sqrt[(-2562890621 -
    112500 I) [Pi]]))(-((2 - 28125 I) +
      Sqrt[-2562890621 - 112500 I] + 4500 I Sqrt[70]) E^(-(1/
     16) ((-2 + 50629 I) + Sqrt[-2562890621 - 112500 I] -
      4 d)^2) ([Pi] Erfi[
       1/4 ((-2 + 50629 I) + Sqrt[-2562890621 - 112500 I] - 4 d)] -
     Log[(-2 + 50629 I) + Sqrt[-2562890621 - 112500 I] - 4 d] -
     Log[1/((2 - 50629 I) - Sqrt[-2562890621 - 112500 I] +
       4 d)]) + ((-2 + 28125 I) + Sqrt[-2562890621 - 112500 I] -
     4500 I Sqrt[70]) E^(-(1/
     16) ((2 - 50629 I) + Sqrt[-2562890621 - 112500 I] +
      4 d)^2) ([Pi] Erfi[
       1/4 ((2 - 50629 I) + Sqrt[-2562890621 - 112500 I] + 4 d)] +
     Log[(-2 + 50629 I) - Sqrt[-2562890621 - 112500 I] - 4 d] +
     Log[1/((2 - 50629 I) + Sqrt[-2562890621 - 112500 I] + 4 d)]))
Plot[Im[f[d]],{d,-10,10}]