Fix memory leak

git-svn-id: https://ccpforge.cse.rl.ac.uk/svn/spral/branches/cpu_ssids@1124 33810a50-c353-450f-be6c-41f7241c649d
ralna · Sep 1, 2016 · 53f89f1 · 53f89f1
1 parent 3c96ac4
commit 53f89f1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/ssids/cpu/subtree.f90 b/src/ssids/cpu/subtree.f90
@@ -270,6 +270,7 @@ function factor(this, posdef, aval, child_contrib, options, inform, scaling)
          aval, cscaling, contrib_ptr, coptions, cstats)
    if(cstats%flag.lt.0) then
       call c_destroy_numeric_subtree(cpu_factor%posdef, cpu_factor%csubtree)
+      deallocate(cpu_factor, stat=st)
       inform%flag = cstats%flag
       return
    endif