diff --git a/src/stdlib_str2num.f90 b/src/stdlib_str2num.f90
index 7eda6c790..e8bdcc9ed 100644
--- a/src/stdlib_str2num.f90
+++ b/src/stdlib_str2num.f90
@@ -234,7 +234,7 @@ elemental subroutine to_real_sp(s,v,p,stat)
         integer(dp) :: int_wp !> long integer to capture fractional part
         integer     :: i_exp !> integer to capture whole number part
         integer     :: exp_aux
-        integer(1)  :: i, pP, pE, val , resp
+        integer(int8)  :: i, pP, pE, val , resp
         !----------------------------------------------
         stat = 23 !> initialize error status with any number > 0
         !----------------------------------------------