From 249ef3942a19fc3685e9456bb76572ef0cfe0a99 Mon Sep 17 00:00:00 2001
From: Jari <jfowkes@users.noreply.github.com>
Date: Wed, 5 Jun 2024 09:24:20 +0100
Subject: [PATCH] Fix insufficient allocate in SSIDS C interface

---
 interfaces/C/ssids.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interfaces/C/ssids.f90 b/interfaces/C/ssids.f90
index bb546476..c141f114 100644
--- a/interfaces/C/ssids.f90
+++ b/interfaces/C/ssids.f90
@@ -458,7 +458,7 @@ subroutine spral_ssids_factor(cposdef, cptr, crow, val, cscale, cakeep, cfkeep,&
      end if
      call C_F_POINTER(crow, frow, shape=(/ fptr(fakeep%n+1)-1 /))
      if (cindexed) then
-        allocate(frow_alloc(fakeep%n+1))
+        allocate(frow_alloc(fptr(fakeep%n+1)-1))
         frow_alloc(:) = frow(:) + 1
         frow => frow_alloc
      end if