From 3ecdb7d0266bec2839aa34134d7ee838b44bbe19 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 17 May 2019 14:54:32 +0100
Subject: [PATCH] Explicitly free output descriptor on desc%clone.

---
 base/modules/desc/psb_desc_mod.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/base/modules/desc/psb_desc_mod.F90 b/base/modules/desc/psb_desc_mod.F90
index 01f913f1..4a2b7380 100644
--- a/base/modules/desc/psb_desc_mod.F90
+++ b/base/modules/desc/psb_desc_mod.F90
@@ -1030,6 +1030,7 @@ contains
     name = 'psb_cdcpy'
 
     if (desc%is_valid()) then 
+      call desc_out%free(info)
       ictxt = desc%get_context()
 
       ! check on blacs grid