Update src/stdlib_linalg_iterative_solvers_cg.fypp

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

Author: jalvesz

src/stdlib_linalg_iterative_solvers_cg.fypp

@@ -99,7 +99,7 @@ contains
         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