fix single ErfInv

MKL-NET · Sep 22, 2024 · 33c7c90 · 33c7c90
1 parent b289288
commit 33c7c90
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Tests/SingleMatrixTests.fs b/Tests/SingleMatrixTests.fs
@@ -1716,7 +1716,7 @@ let functions2 = test "functions2" {
 
     testUnary "Erf" (double >> erf >> single) Matrix.Erf
     testUnary "Erfc" (double >> erfc >> single) Matrix.Erfc
-    testUnary "ErfInv" (double >> (fun x -> if x = 1 then nan else erfinv(x)) >> single) Matrix.ErfInv
+    testUnary "ErfInv" (double >> (fun x -> if x = 1 then double.PositiveInfinity else erfinv(x)) >> single) Matrix.ErfInv
     testUnary "ErfcInv" (double >> erfcinv >> single) Matrix.ErfcInv
     testUnary "CdfNorm" (double >> normcdf >> single) Matrix.CdfNorm
     testUnary "CdfNormInv" (double >> normcdfinv >> single) Matrix.CdfNormInv