Skip to content

Commit 1824763

Browse files
jalveszjvdp1
andauthored
Update src/stdlib_str2num.fypp
Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent 688c3a3 commit 1824763

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
@@ -186,10 +186,10 @@ module stdlib_str2num
186186
character(len=:), pointer :: s !> input string
187187
real(qp), intent(in) :: mold !> dummy argument to disambiguate at compile time the generic interface
188188
real(qp) :: r !> Output real value
189-
integer(1),intent(inout), optional :: stat
189+
integer(int8),intent(inout), optional :: stat
190190
! -- Internal Variables
191-
integer(1) :: p !> position within the number
192-
integer(1) :: err
191+
integer(int8) :: p !> position within the number
192+
integer(int8) :: err
193193
!----------------------------------------------
194194
call to_num_base(s,r,p,err)
195195
p = min( p , len(s) )

0 commit comments

Comments
 (0)