We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 79beace commit e960436Copy full SHA for e960436
src/stdlib_str2num.f90
@@ -521,7 +521,7 @@ elemental function mvs2nwsp(s) result(p)
521
elemental function mvs2wsp(s) result(p)
522
!> move string to position of the next white space character
523
character(*),intent(in) :: s !> character chain
524
- integer(1) :: p !> position
+ integer(int8) :: p !> position
525
!----------------------------------------------
526
p = 1
527
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