From d6b0a22855ac2e52a74bc9cd307cfa3596f31c11 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ole=20Sch=C3=BCtt?= <ole.schuett@cp2k.org>
Date: Mon, 23 Dec 2024 19:42:58 +0100
Subject: [PATCH] Check block sizes are equal in dbcsr_copy_into_existing_sym

---
 src/ops/dbcsr_operations.F | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ops/dbcsr_operations.F b/src/ops/dbcsr_operations.F
index 44112b8cb23..ba624bf6696 100644
--- a/src/ops/dbcsr_operations.F
+++ b/src/ops/dbcsr_operations.F
@@ -1479,6 +1479,9 @@ SUBROUTINE dbcsr_copy_into_existing_sym(matrix_b, matrix_a)
          IF (.NOT. found) THEN
             CALL dbcsr_data_clear(dst_data)
          ELSE
+            IF (dbcsr_data_get_size(src_data) .NE. dbcsr_data_get_size(dst_data)) THEN
+               DBCSR_ABORT("Block sizes not equal!")
+            END IF
             IF (checker_tr(dst_row, dst_col)) THEN
                src_tr = .NOT. src_tr
                CALL swap(src_rs, src_cs)