Update src/stdlib_str2num.f90

Co-authored-by: Jeremie Vandenplas <[email protected]>
fortran-lang · Dec 26, 2023 · abe20e6 · abe20e6
1 parent 7c5de6c
commit abe20e6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/stdlib_str2num.f90 b/src/stdlib_str2num.f90
@@ -229,7 +229,7 @@ elemental subroutine to_real_sp(s,v,p,stat)
         real(dp), parameter :: fractional_base(nfnb)   = [(10._dp**(-e),e=1,nfnb)]
         real(dp), parameter :: expbase(nwnb+nfnb) = [whole_number_base, fractional_base]
 
-        integer(1)  :: sign, sige !> sign of integer number and exponential
+        integer(int8)  :: sign, sige !> sign of integer number and exponential
         integer, parameter :: maxdpt = 11 !> Maximum depth to read values on int_wp
         integer(dp) :: int_wp !> long integer to capture fractional part
         integer     :: i_exp !> integer to capture whole number part