Skip to content

Commit

Permalink
Update src/stdlib_str2num.f90
Browse files Browse the repository at this point in the history
Co-authored-by: Jeremie Vandenplas <[email protected]>
  • Loading branch information
jalvesz and jvdp1 authored Dec 26, 2023
1 parent e960436 commit d5e8696
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/stdlib_str2num.f90
Original file line number Diff line number Diff line change
Expand Up @@ -406,8 +406,8 @@ subroutine to_real_qp(s,v,p,stat)
! -- In/out Variables
character(*), intent(in) :: s !> input string
real(wp), intent(inout) :: v !> Output real value
integer(1), intent(out) :: p !> last position within the string
integer(1), intent(out) :: stat !> status upon success or failure to read
integer(int8), intent(out) :: p !> last position within the string
integer(int8), intent(out) :: stat !> status upon success or failure to read

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

0 comments on commit d5e8696

Please sign in to comment.