Update src/stdlib_linalg_iterative_solvers_cg.fypp

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

Author: jalvesz

src/stdlib_linalg_iterative_solvers_cg.fypp

@@ -85,7 +85,7 @@ contains
         integer :: n, maxiter_
         ${t}$ :: tol_
         logical :: restart_
-        logical(1), pointer :: di_(:)
+        logical(int8), pointer :: di_(:)
         !-------------------------
         n = size(b)
         maxiter_ = n;       if(present(maxiter)) maxiter_ = maxiter