Skip to content

Commit 25f94a9

jalvesz jalvesz

authored

fix current position of pointer (#1000)

1 parent 30ccd9d commit 25f94a9Copy full SHA for 25f94a9

File tree

1 file changed

+1

-1

lines changed

src
- stdlib_str2num.fypp

1 file changed

+1

-1

lines changed

`‎src/stdlib_str2num.fypp`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -109,7 +109,7 @@ module stdlib_str2num`
`109`	`109`	`integer(int8) :: err`
`110`	`110`	`!----------------------------------------------`
`111`	`111`	`call to_num_base(s,v,p,err)`
`112`		`- p = min( p , len(s, kind = int8) )`
	`112`	`+ p = min( p , len(s) )`
`113`	`113`	`s => s(p:)`
`114`	`114`	`if(present(stat)) stat = err`
`115`	`115`	`end function`

0 commit comments

Comments

(0)