Skip to content

Commit 592c2ca

Browse files
committed
improved padr_char_default based upon fortran standards
1 parent e70f6d8 commit 592c2ca

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
@@ -767,7 +767,7 @@ pure function padr_char_default(string, output_length) result(res)
767767
integer, intent(in) :: output_length
768768
character(len=max(len(string), output_length)) :: res
769769

770-
res = padr_char_char(string, output_length, " ")
770+
res = string
771771
end function padr_char_default
772772

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

0 commit comments

Comments
 (0)