From 96ad5e46d3803d7617322fbab3feb6d1164a3e20 Mon Sep 17 00:00:00 2001
From: Jeremie Vandenplas <jeremie.vandenplas@gmail.com>
Date: Sun, 7 Apr 2024 21:52:59 +0200
Subject: [PATCH] Fix str2num

---
 src/stdlib_str2num.fypp                | 2 +-
 test/string/test_string_to_number.fypp | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/stdlib_str2num.fypp b/src/stdlib_str2num.fypp
index d7deac90c..f9b9bed15 100644
--- a/src/stdlib_str2num.fypp
+++ b/src/stdlib_str2num.fypp
@@ -99,7 +99,7 @@ module stdlib_str2num
         integer(int8) :: err
         !----------------------------------------------
         call to_num_base(s,v,p,err)
-        p = min( p , len(s) )
+        p = min( p , len(s, kind = int8) )
         s => s(p:)
         if(present(stat)) stat = err
     end function
diff --git a/test/string/test_string_to_number.fypp b/test/string/test_string_to_number.fypp
index 62a0b5c1a..ab35ce112 100644
--- a/test/string/test_string_to_number.fypp
+++ b/test/string/test_string_to_number.fypp
@@ -122,10 +122,10 @@ contains
             #:elif k1 == "qp"
             if(abs(rel_err) > 200*epsilon(0.0_wp)) then
             #:endif
-                write(*,"('formatted read : ' g0)") formatted_read_out
-                write(*,"('to_num         : ' g0)") to_num_out
-                write(*,"('difference abs : ' g0)") abs_err
-                write(*,"('difference rel : ' g0 '%')") rel_err * 100
+                write(*,"('formatted read : ', g0)") formatted_read_out
+                write(*,"('to_num         : ', g0)") to_num_out
+                write(*,"('difference abs : ', g0)") abs_err
+                write(*,"('difference rel : ', g0, '%')") rel_err * 100
                 ucheck = .false.
             end if
         end function