Commit 39eec81

aman-godaramilancurcic

and

authored

added comments to explain the right padding and shifted RHS completely to the next line

Co-authored-by: Milan Curcic <caomaco@gmail.com>

1 parent 7bc4b3a commit 39eec81Copy full SHA for 39eec81

File tree

-2

lines changed

-2

lines changed

Lines changed: 6 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -736,6 +736,10 @@ pure function padr_string_default(string, output_length) result(res)`
`736`	`736`	`character(len=max(len(string), output_length)) :: char_output`
`737`	`737`	`type(string_type) :: res`
`738`	`738`
	`739`	+ ! We're taking advantage of `char_output` being longer than `string` and
	`740`	+ ! initialized with whitespaces. By casting `string` to a `character`
	`741`	+ ! type and back to `string_type`, we're effectively right-padding
	`742`	+ ! `string` with spaces, so we don't need to pad explicitly.
`739`	`743`	`char_output = char(string)`
`740`	`744`	`res = string_type(char_output)`
`741`	`745`
`@@ -780,8 +784,8 @@ pure function padr_char_pad_with(string, output_length, pad_with) result(res)`
`780`	`784`
`781`	`785`	`res = string`
`782`	`786`	`if (string_length < output_length) then`
`783`		`- res(string_length + 1 : output_length) = repeat(pad_with, &`
`784`		`- & output_length - string_length)`
	`787`	`+ res(string_length + 1 : output_length) = &`
	`788`	`+ repeat(pad_with, output_length - string_length)`
`785`	`789`	`end if`
`786`	`790`
`787`	`791`	`end function padr_char_pad_with`

Comments

(0)