* Bug 16209 fixed: grand(n,m,exp,1) may freeze Scilab with default generator

[scilab.git] / scilab / modules / randlib / src / c / sexpo.c

diff --git a/scilab/modules/randlib/src/c/sexpo.c b/scilab/modules/randlib/src/c/sexpo.c
index b96c03a..a385839 100644 (file)
--- a/scilab/modules/randlib/src/c/sexpo.c
+++ b/scilab/modules/randlib/src/c/sexpo.c
@@ -58,6 +58,7 @@ modifications done by JJV
 
     a = 0.0;
     u = C2F(ranf)();
+    u = (u == 0.0) ? C2F(ranf)() : u;
     goto S30;
 S20:
     a += q[0];