# HG changeset patch
# User Mike Miller <mtmiller@octave.org>
# Date 1521841699 25200
#      Fri Mar 23 14:48:19 2018 -0700
# Branch stable
# Node ID f0cd980aaad38c2d8b47a579c78fadde3e00cf2e
# Parent  40d60bb24cc13c8aff53c272075fbd96e321288e
bump test tolerances for specfun test failures on i386 (bug #53437)

diff --git a/scripts/specfun/betainc.m b/scripts/specfun/betainc.m
--- a/scripts/specfun/betainc.m
+++ b/scripts/specfun/betainc.m
@@ -200,11 +200,11 @@ endfunction
 %! assert (y, y_ex, -1e-14);
 
 %!assert (betainc (0.001, 20, 30), 2.750687665855991e-47, -3e-14);
-%!assert (betainc (0.0001, 20, 30), 2.819953178893307e-67, -3e-14);
+%!assert (betainc (0.0001, 20, 30), 2.819953178893307e-67, -7e-14);
 %!assert (betainc (0.99, 20, 30, "upper"), 1.5671643161872703e-47, -3e-14);
-%!assert (betainc (0.999, 20, 30, "upper"), 1.850806276141535e-77, -3e-14);
+%!assert (betainc (0.999, 20, 30, "upper"), 1.850806276141535e-77, -7e-14);
 %!assert (betainc (0.5, 200, 300), 0.9999964565197356, -1e-15);
-%!assert (betainc (0.5, 200, 300, "upper"), 3.54348026439253e-06, -1e-13);
+%!assert (betainc (0.5, 200, 300, "upper"), 3.54348026439253e-06, -3e-13);
 
 ## Test trivial values
 %!test
diff --git a/scripts/specfun/betaincinv.m b/scripts/specfun/betaincinv.m
--- a/scripts/specfun/betaincinv.m
+++ b/scripts/specfun/betaincinv.m
@@ -255,14 +255,14 @@ endfunction
 %! a = [0.1:0.1:1];
 %! [x,a,b] = ndgrid (x,a,a);
 %! xx = betaincinv (betainc (x, a, b), a, b);
-%! assert (xx, x, 3e-15);
+%! assert (xx, x, 5e-15);
 
 %!test
 %! x = linspace (0.1, 0.9, 11);
 %! a = [0.1:0.1:1];
 %! [x,a,b] = ndgrid (x,a,a);
 %! xx = betaincinv (betainc (x, a, b, "upper"), a, b, "upper");
-%! assert (xx, x, 3e-15);
+%! assert (xx, x, 5e-15);
 
 ## Test the conservation of the input class
 %!assert (class (betaincinv (0.5, 1, 1)), "double")
diff --git a/scripts/specfun/cosint.m b/scripts/specfun/cosint.m
--- a/scripts/specfun/cosint.m
+++ b/scripts/specfun/cosint.m
@@ -180,7 +180,7 @@ endfunction
 ## tests against maple
 %!assert (cosint (1), 0.337403922900968135, -2*eps)
 %!assert (cosint (-1), 0.337403922900968135 + 3.14159265358979324*I, -2*eps)
-%!assert (cosint (pi), 0.0736679120464254860, -2*eps)
+%!assert (cosint (pi), 0.0736679120464254860, -2e-15)
 %!assert (cosint (-pi), 0.0736679120464254860 + 3.14159265358979324*I, -2*eps)
 %!assert (cosint (300), -0.00333219991859211178, -2*eps)
 %!assert (cosint (1e4), -0.0000305519167244852127, -2*eps)
diff --git a/scripts/specfun/gammainc.m b/scripts/specfun/gammainc.m
--- a/scripts/specfun/gammainc.m
+++ b/scripts/specfun/gammainc.m
@@ -458,7 +458,7 @@ endfunction
 %!assert (gammainc (2, 2, "scaledlower"), 2.194528049465325, -2e-15)
 %!assert (gammainc (2, 2, "scaledupper"), 1.500000000000000, -2e-15)
 %!assert (gammainc ([3 2 36],[2 3 18], "upper"), ...
-%!        [4/exp(3) 5*exp(-2) (4369755579265807723 / 2977975)/exp(36)])
+%!        [4/exp(3) 5*exp(-2) (4369755579265807723 / 2977975)/exp(36)], -eps)
 %!assert (gammainc (10, 10), 1 - (5719087 / 567) * exp (-10), -eps)
 %!assert (gammainc (10, 10, "upper"), (5719087 / 567) * exp (-10), -eps)
 
@@ -485,11 +485,11 @@ endfunction
 %!         -10*eps);
 ## Matlab is better here than Octave
 %!assert (gammainc (751, 750, "upper"), 0.4805914320558831327179457887, -12*eps)
-%!assert (gammainc (200, 200, "upper"), 0.49059658199276367497217454, -4*eps)
-%!assert (gammainc (200, 200), 0.509403418007236325027825459574527043, -3*eps)
+%!assert (gammainc (200, 200, "upper"), 0.49059658199276367497217454, -5*eps)
+%!assert (gammainc (200, 200), 0.509403418007236325027825459574527043, -5*eps)
 %!assert (gammainc (200, 200, "scaledupper"), 17.3984438553791505135122900,
-%!       -eps)
-%!assert (gammainc (200, 200, "scaledlower"), 18.065406676779221643065, -6*eps)
+%!       -2*eps)
+%!assert (gammainc (200, 200, "scaledlower"), 18.065406676779221643065, -7*eps)
 %!assert (gammainc (201, 200, "upper"), 0.46249244908276709524913736667, -7*eps)
 
 ## Test small argument
diff --git a/scripts/specfun/sinint.m b/scripts/specfun/sinint.m
--- a/scripts/specfun/sinint.m
+++ b/scripts/specfun/sinint.m
@@ -140,8 +140,8 @@ endfunction
 ## Tests against Maple
 %!assert (sinint (1)  ,  0.9460830703671830149414, -2*eps)
 %!assert (sinint (-1) , -0.9460830703671830149414, -2*eps)
-%!assert (sinint (pi) ,  1.851937051982466170361, -2*eps)
-%!assert (sinint (-pi), -1.851937051982466170361, -2*eps)
+%!assert (sinint (pi) ,  1.851937051982466170361, -3*eps)
+%!assert (sinint (-pi), -1.851937051982466170361, -3*eps)
 %!assert (sinint (300),  1.5708810882137495193, -2*eps)
 %!assert (sinint (1e4),  1.5708915453859619157, -2*eps)
 %!assert (sinint (20i),  1.2807826332028294459e7*1i, -2*eps)
