fm: Check success of elpa_deallocate

cp2k · May 10, 2021 · dceca61 · dceca61
1 parent 167df3c
commit dceca61
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/fm/cp_fm_elpa.F b/src/fm/cp_fm_elpa.F
@@ -503,7 +503,8 @@ SUBROUTINE cp_fm_diag_elpa_base(matrix, eigenvectors, eigenvalues, rdinfo)
          CALL cp_fm_release(eigenvectors_noqr)
       END IF
 
-      CALL elpa_deallocate(elpa_obj)
+      CALL elpa_deallocate(elpa_obj, success)
+      CPASSERT(success == elpa_ok)
 
       eigenvalues(1:neig) = eval(1:neig)
       DEALLOCATE (eval)