Update example/linalg/example_solve_custom.f90

Co-authored-by: Jeremie Vandenplas <[email protected]>

Author: jalvesz

example/linalg/example_solve_custom.f90

@@ -23,7 +23,7 @@ subroutine solve_pcg_custom(A,b,x,di,tol,maxiter,restart,workspace)
         integer :: n, maxiter_
         real(dp) :: tol_
         logical :: restart_
-        logical(1), pointer :: di_(:)
+        logical(int8), pointer :: di_(:)
         real(dp), allocatable :: diagonal(:)
         real(dp) :: norm_sq0
         !-------------------------