Merge branch 'pad' of https://github.com/Aman-Godara/stdlib into pad

Author: aman-godara

src/stdlib_strings.f90

@@ -748,6 +748,10 @@ pure function padr_string_default(string, output_length) result(res)
         character(len=max(len(string), output_length)) :: char_output
         type(string_type) :: res
 
+        ! We're taking advantage of `char_output` being longer than `string` and
+        ! initialized with whitespaces. By casting `string` to a `character`
+        ! type and back to `string_type`, we're effectively right-padding
+        ! `string` with spaces, so we don't need to pad explicitly.
         char_output = char(string)
         res = string_type(char_output)
 
@@ -792,8 +796,8 @@ pure function padr_char_pad_with(string, output_length, pad_with) result(res)
 
         res = string
         if (string_length < output_length) then
-            res(string_length + 1 : output_length) = repeat(pad_with, &
-            & output_length - string_length)
+            res(string_length + 1 : output_length) = &
+              repeat(pad_with, output_length - string_length)
         end if
 
     end function padr_char_pad_with