// Example file for nag_intext1

x = -2
y_exp = -3.013e-1
tol = 1.0e-3

y = nag_dawson(x)

ok = abs(y - y_exp)/abs(y_exp) < tol

if ~ok; write(%io(2),'Error in expected output'); end;