diff --git a/src/stdlib_str2num.fypp b/src/stdlib_str2num.fypp index ebe8ded70..435ab0071 100644 --- a/src/stdlib_str2num.fypp +++ b/src/stdlib_str2num.fypp @@ -109,7 +109,7 @@ module stdlib_str2num integer(int8) :: err !---------------------------------------------- call to_num_base(s,v,p,err) - p = min( p , len(s, kind = int8) ) + p = min( p , len(s) ) s => s(p:) if(present(stat)) stat = err end function