Commit d326924

committed

removed variable consider_overlapping_ and used its expression directly in the if-else statement

1 parent 88f38dd commit d326924Copy full SHA for d326924

File tree

1 file changed

-6

lines changed

src
- stdlib_strings.f90

1 file changed

-6

lines changed

`‎src/stdlib_strings.f90‎`

Lines changed: 2 additions & 6 deletions

Original file line number	Diff line number	Diff line change
`@@ -454,9 +454,7 @@ elemental function find_char_char(string, pattern, occurrence, consider_overlapp`
`454`	`454`	`logical, intent(in), optional :: consider_overlapping`
`455`	`455`	`integer :: lps_array(len(pattern))`
`456`	`456`	`integer :: res, s_i, p_i, length_string, length_pattern, occurrence_`
`457`		`- logical :: consider_overlapping_`
`458`	`457`
`459`		`- consider_overlapping_ = optval(consider_overlapping, .true.)`
`460`	`458`	`occurrence_ = optval(occurrence, 1)`
`461`	`459`	`res = 0`
`462`	`460`	`length_string = len(string)`
`@@ -475,7 +473,7 @@ elemental function find_char_char(string, pattern, occurrence, consider_overlapp`
`475`	`473`	`if (occurrence_ == 0) then`
`476`	`474`	`res = s_i - length_pattern + 1`
`477`	`475`	`exit`
`478`		`- else if (consider_overlapping_) then`
	`476`	`+ else if (optval(consider_overlapping, .true.)) then`
`479`	`477`	`p_i = lps_array(p_i)`
`480`	`478`	`else`
`481`	`479`	`p_i = 0`
`@@ -708,9 +706,7 @@ elemental function count_char_char(string, pattern, consider_overlapping) result`
`708`	`706`	`logical, intent(in), optional :: consider_overlapping`
`709`	`707`	`integer :: lps_array(len(pattern))`
`710`	`708`	`integer :: res, s_i, p_i, length_string, length_pattern`
`711`		`- logical :: consider_overlapping_`
`712`	`709`
`713`		`- consider_overlapping_ = optval(consider_overlapping, .true.)`
`714`	`710`	`res = 0`
`715`	`711`	`length_string = len(string)`
`716`	`712`	`length_pattern = len(pattern)`
`@@ -724,7 +720,7 @@ elemental function count_char_char(string, pattern, consider_overlapping) result`
`724`	`720`	`if (string(s_i:s_i) == pattern(p_i:p_i)) then`
`725`	`721`	`if (p_i == length_pattern) then`
`726`	`722`	`res = res + 1`
`727`		`- if (consider_overlapping_) then`
	`723`	`+ if (optval(consider_overlapping, .true.)) then`
`728`	`724`	`p_i = lps_array(p_i)`
`729`	`725`	`else`
`730`	`726`	`p_i = 0`

0 commit comments

Comments

(0)

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit d326924

File tree

1 file changed

1 file changed

`‎src/stdlib_strings.f90‎`

0 commit comments