From 383a4d349c650259bb8509c3c9bf9f83d7c5f911 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sat, 20 Jul 2019 19:58:56 -0700
Subject: [PATCH] EXAMINE: Fix leak in Shapiro-Wilk test.

CC: John Darrington <john@darrington.wattle.id.au>
Fixes: 0b7e8882ce9b ("EXAMINE: Implement the Shapiro-Wilk Test.")
---
 src/language/stats/examine.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/language/stats/examine.c b/src/language/stats/examine.c
index 794fefe6c1..a9deed66b9 100644
--- a/src/language/stats/examine.c
+++ b/src/language/stats/examine.c
@@ -1320,6 +1320,12 @@ cleanup_exploratory_stats (struct examine *cmd)
 		  stat->destroy (stat);
 		}
 
+              if (es[v].shapiro_wilk)
+                {
+                  stat = &es[v].shapiro_wilk->parent.parent;
+                  stat->destroy (stat);
+                }
+
 	      os = &es[v].trimmed_mean->parent;
 	      stat = &os->parent;
 	      stat->destroy (stat);
-- 
2.30.2