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