Skip to content

Commit c630fd7

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

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
@@ -129,10 +129,10 @@ module stdlib_str2num
129129
character(len=:), pointer :: s !> input string
130130
real(sp), intent(in) :: mold !> dummy argument to disambiguate at compile time the generic interface
131131
real(sp) :: r !> Output real value
132-
integer(1),intent(inout), optional :: stat
132+
integer(int8), intent(inout), optional :: stat
133133
! -- Internal Variables
134-
integer(1) :: p !> position within the number
135-
integer(1) :: err
134+
integer(int8) :: p !> position within the number
135+
integer(int8) :: err
136136
!----------------------------------------------
137137
call to_num_base(s,r,p,err)
138138
p = min( p , len(s) )

0 commit comments

Comments
 (0)