Fix another insufficent allocate in SSIDS C interface

ralna · Jun 5, 2024 · c558d18 · c558d18
1 parent 072857e
commit c558d18
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/interfaces/C/ssids.f90 b/interfaces/C/ssids.f90
@@ -545,7 +545,7 @@ subroutine spral_ssids_factor_ptr32(cposdef, cptr, crow, val, cscale, cakeep, &
      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