Skip to content

Commit d5e8696

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

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/stdlib_str2num.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -406,8 +406,8 @@ subroutine to_real_qp(s,v,p,stat)
406406
! -- In/out Variables
407407
character(*), intent(in) :: s !> input string
408408
real(wp), intent(inout) :: v !> Output real value
409-
integer(1), intent(out) :: p !> last position within the string
410-
integer(1), intent(out) :: stat !> status upon success or failure to read
409+
integer(int8), intent(out) :: p !> last position within the string
410+
integer(int8), intent(out) :: stat !> status upon success or failure to read
411411

412412
! -- Internal Variables
413413
integer(kind=ikind), parameter :: nwnb = 50 !> number of whole number factors

0 commit comments

Comments
 (0)