Fix insufficient allocate in SSIDS C interface

ralna · Jun 5, 2024 · 249ef39 · 249ef39
1 parent c266223
commit 249ef39
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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