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