Fix bug #57731.

diff --git a/src/language/stats/runs.c b/src/language/stats/runs.c
index eb95372ae81d8573b1c294341f1752b7a10ca2b6..f23b67867eb01deccb585ccbfa51968d814b103e 100644 (file)
--- a/src/language/stats/runs.c
+++ b/src/language/stats/runs.c
@@ -346,7 +346,7 @@ show_runs_result (const struct runs_test *rt, const struct run_state *rs, const
         run->n,
         run->runs,
         z,
-        2.0 * (1.0 - gsl_cdf_ugaussian_P (z)),
+        2.0 * (1.0 - gsl_cdf_ugaussian_P (fabs (z))),
       };
 
       for (int row = 0; row < sizeof rows / sizeof *rows; row++)

diff --git a/tests/language/stats/npar.at b/tests/language/stats/npar.at
index 820b28ad0fce47c9ea07bd077127716029687a05..e71514c63b8adb6491d5dab8fad8ccb94c84a615 100644 (file)
--- a/tests/language/stats/npar.at
+++ b/tests/language/stats/npar.at
@@ -890,7 +890,7 @@ Cases ≥ Test Value,309.0000
 Total Cases,486.0000
 Number of Runs,12
 Z,-20.9931
-Asymp. Sig. (2-tailed),2.000
+Asymp. Sig. (2-tailed),.000
 
 Table: Runs Test
 ,score
@@ -900,7 +900,7 @@ Cases ≥ Test Value,227.0000
 Total Cases,486.0000
 Number of Runs,12
 Z,-21.0650
-Asymp. Sig. (2-tailed),2.000
+Asymp. Sig. (2-tailed),.000
 
 Table: Runs Test
 ,score
@@ -910,7 +910,7 @@ Cases ≥ Test Value,170.0000
 Total Cases,486.0000
 Number of Runs,11
 Z,-21.0742
-Asymp. Sig. (2-tailed),2.000
+Asymp. Sig. (2-tailed),.000
 ])
 
 AT_CLEANUP