From 740eb9af36b97c590913344fd826d899e3946373 Mon Sep 17 00:00:00 2001
From: jchristopherson <jchristopherson@hotmail.com>
Date: Mon, 12 Feb 2024 13:04:20 -0600
Subject: [PATCH] Fix initialization error

---
 src/linalg_sparse.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/linalg_sparse.f90 b/src/linalg_sparse.f90
index 7bd7f35f..c88fc3eb 100644
--- a/src/linalg_sparse.f90
+++ b/src/linalg_sparse.f90
@@ -944,7 +944,7 @@ module function create_empty_msr_matrix(m, n, nnz, err) result(rst)
     ! Allocation
     rst%m = m
     rst%n = n
-    rst%nnz = n
+    rst%nnz = nnz
     mn = min(m, n)
     nelem = m + 1 + nnz - mn
     allocate(rst%indices(nelem), source = 0, stat = flag)