Update example/linalg/example_solve_custom.f90

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

Author: jalvesz

example/linalg/example_solve_custom.f90

@@ -40,7 +40,7 @@ subroutine solve_pcg_custom(A,b,x,di,tol,maxiter,restart,workspace)
         if(present(di))then
             di_ => di
         else 
-            allocate(di_(n),source=.false._1)
+            allocate(di_(n),source=.false._int8)
         end if
 
         if(present(workspace)) then