From ee41d92e0141ddb04f7cc10e4b1a61f9a4890db3 Mon Sep 17 00:00:00 2001
From: Jose Alves <jose.alves@transvalor.com>
Date: Sun, 8 Jun 2025 13:01:37 +0200
Subject: [PATCH] fix current position of pointer

---
 src/stdlib_str2num.fypp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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