* Bug #10336 fixed - Default key of rand was changed from "uniform" to "normal". 04/14604/2
Charlotte HECQUET [Tue, 3 Jun 2014 07:22:42 +0000 (09:22 +0200)]
Change-Id: Ic89a74b8c162496d57cdcc122ca4ef772284ce62

scilab/CHANGES_5.5.X
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_rand.f
scilab/modules/elementary_functions/tests/nonreg_tests/bug_10336.dia.ref [new file with mode: 0644]
scilab/modules/elementary_functions/tests/nonreg_tests/bug_10336.tst [new file with mode: 0644]

index 05db557..91caba1 100644 (file)
@@ -38,6 +38,8 @@ Scilab Bug Fixes
 
 * Bug #10168 fixed - kron produced a segfault in some cases.
 
+* Bug #10336 fixed - Default key of rand was changed from "uniform" to "normal".
+
 * Bug #10555 fixed - Scilab failed to build with some configure options.
 
 * Bug #10583 fixed - ./configure --without-xcos did not work.
index f9ff028..e022f3e 100644 (file)
@@ -190,6 +190,10 @@ c     .        ask for result of the same real/complex type
 
       if (m.eq.0.or.n.eq.0) then
          if (.not.cremat(fname,top,0,0,0,lr,lc)) return
+C        switching back to the default randvalue
+         if ( irt.ge.1) then
+            ran(2)=iran1kp
+         endif
          return
       endif
 
diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_10336.dia.ref b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_10336.dia.ref
new file mode 100644 (file)
index 0000000..ac8323b
--- /dev/null
@@ -0,0 +1,20 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2014 - Scilab Enterprises - Charlotte HECQUET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 10336 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=10336
+//
+// <-- Short Description -->
+// Default key of rand is changed from "uniform" to "normal"
+x=rand(100,1);
+assert_checkequal(rand("info"), "uniform");
+x=rand(100,0,"norm");
+assert_checkequal(rand("info"), "uniform");
diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_10336.tst b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_10336.tst
new file mode 100644 (file)
index 0000000..d9f339a
--- /dev/null
@@ -0,0 +1,21 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2014 - Scilab Enterprises - Charlotte HECQUET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 10336 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=10336
+//
+// <-- Short Description -->
+// Default key of rand is changed from "uniform" to "normal"
+
+x=rand(100,1);
+assert_checkequal(rand("info"), "uniform");
+x=rand(100,0,"norm");
+assert_checkequal(rand("info"), "uniform");