Update src/stdlib_str2num.f90

Co-authored-by: Jeremie Vandenplas <[email protected]>
fortran-lang · Dec 26, 2023 · e960436 · e960436
1 parent 79beace
commit e960436
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/stdlib_str2num.f90 b/src/stdlib_str2num.f90
@@ -521,7 +521,7 @@ elemental function mvs2nwsp(s) result(p)
     elemental function mvs2wsp(s) result(p)
         !> move string to position of the next white space character
         character(*),intent(in) :: s !> character chain
-        integer(1) :: p !> position
+        integer(int8) :: p !> position
         !----------------------------------------------
         p = 1
         do while( p<len(s) .and. .not.(iachar(s(p:p))==WS.or.iachar(s(p:p))==LF.or.iachar(s(p:p))==CR) )