* Bug 16209 fixed: grand(n,m,exp,1) may freeze Scilab with default generator
[scilab.git] / scilab / modules / randlib / src / c / sexpo.c
index b96c03a..a385839 100644 (file)
@@ -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];