From: John Darrington <john@darrington.wattle.id.au>
Date: Sun, 9 Feb 2020 12:01:12 +0000 (+0100)
Subject: Fix bug #57731.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b953e838dba6aea1d81b6736d00ae95ef7a5eec;p=pspp

Fix bug #57731.
---

diff --git a/src/language/stats/runs.c b/src/language/stats/runs.c
index eb95372ae8..f23b67867e 100644
--- 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 820b28ad0f..e71514c63b 100644
--- 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