Skip to content

Commit f8f4a0b

Browse files
committed
improved padr_char_default based upon fortran standards
1 parent f97f037 commit f8f4a0b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_strings.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -682,7 +682,7 @@ pure function padr_char_default(string, output_length) result(res)
682682
integer, intent(in) :: output_length
683683
character(len=max(len(string), output_length)) :: res
684684

685-
res = padr_char_char(string, output_length, " ")
685+
res = string
686686
end function padr_char_default
687687

688688
!> Right pad the input string with the 'pad_with' string

0 commit comments

Comments
 (0)