Skip to content

Commit ee41d92

Browse files
committed
fix current position of pointer
1 parent 30ccd9d commit ee41d92

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_str2num.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,7 @@ module stdlib_str2num
109109
integer(int8) :: err
110110
!----------------------------------------------
111111
call to_num_base(s,v,p,err)
112-
p = min( p , len(s, kind = int8) )
112+
p = min( p , len(s) )
113113
s => s(p:)
114114
if(present(stat)) stat = err
115115
end function

0 commit comments

Comments
 (0)