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 318e4ac commit 7c5de6c
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 @@ -218,8 +218,8 @@ elemental subroutine to_real_sp(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 = 39 !> number of whole number factors
Expand Down

0 comments on commit 7c5de6c

Please sign in to comment.