Skip to content

Commit 50174a4

Browse files
jalveszjvdp1
andauthored
Update src/stdlib_str2num.fypp
Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent 53cb17e commit 50174a4

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/stdlib_str2num.fypp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -157,10 +157,10 @@ module stdlib_str2num
157157
character(len=:), pointer :: s !> input string
158158
real(dp), intent(in) :: mold !> dummy argument to disambiguate at compile time the generic interface
159159
real(dp) :: r !> Output real value
160-
integer(1),intent(inout), optional :: stat
160+
integer(int8),intent(inout), optional :: stat
161161
! -- Internal Variables
162-
integer(1) :: p !> position within the number
163-
integer(1) :: err
162+
integer(int8) :: p !> position within the number
163+
integer(int8) :: err
164164
!----------------------------------------------
165165
call to_num_base(s,r,p,err)
166166
p = min( p , len(s) )

0 commit comments

Comments
 (0)