Skip to content

Commit e960436

Browse files
jalveszjvdp1
andauthored
Update src/stdlib_str2num.f90
Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent 79beace commit e960436

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_str2num.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -521,7 +521,7 @@ elemental function mvs2nwsp(s) result(p)
521521
elemental function mvs2wsp(s) result(p)
522522
!> move string to position of the next white space character
523523
character(*),intent(in) :: s !> character chain
524-
integer(1) :: p !> position
524+
integer(int8) :: p !> position
525525
!----------------------------------------------
526526
p = 1
527527
do while( p<len(s) .and. .not.(iachar(s(p:p))==WS.or.iachar(s(p:p))==LF.or.iachar(s(p:p))==CR) )

0 commit comments

Comments
 (0)