Skip to content

Commit 560f1da

Browse files
jalveszjvdp1
andauthored
Update src/stdlib_str2num.f90
Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent e0b8da0 commit 560f1da

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_str2num.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -422,7 +422,7 @@ subroutine to_real_qp(s,v,p,stat)
422422
integer(dp) :: int_dp1, int_dp2 !> long integers to capture whole and fractional part
423423
integer :: i_exp !> integer to capture exponent number
424424
integer :: exp_aux
425-
integer(1) :: i, pP, pE, val , resp, icount, aux
425+
integer(int8) :: i, pP, pE, val , resp, icount, aux
426426
!----------------------------------------------
427427
stat = 23 !> initialize error status with any number > 0
428428
!----------------------------------------------

0 commit comments

Comments
 (0)