Skip to content

Commit 0811476

Browse files
jalveszjvdp1
andauthored
Update src/sparse/stdlib_sparse_kinds.fypp
Co-authored-by: Jeremie Vandenplas <jeremie.vandenplas@gmail.com>
1 parent 3adf18c commit 0811476

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/sparse/stdlib_sparse_kinds.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -368,7 +368,7 @@ contains
368368
self%nnz = br*bc*bnnz
369369

370370
if(.not.allocated(self%col)) then
371-
allocate(temp_idx(bnnz) , source = 0 )
371+
allocate(temp_idx(bnnz) , source = 0_ilp )
372372
else
373373
allocate(temp_idx(bnnz) , source = self%col )
374374
end if

0 commit comments

Comments
 (0)