made argument pad_with non-optional to solve ambiguous interface error

Author: aman-godara

src/stdlib_strings.f90

@@ -590,7 +590,7 @@ end function replace_all_char_char_char
     pure function padl_string_string(string, output_length, pad_with) result(res)
         type(string_type), intent(in) :: string
         integer, intent(in) :: output_length
-        type(string_type), intent(in), optional :: pad_with
+        type(string_type), intent(in) :: pad_with
         type(string_type) :: res
 
         res = string_type(padl_char_char(char(string), output_length, char(pad_with)))
@@ -602,7 +602,7 @@ end function padl_string_string
     pure function padl_string_char(string, output_length, pad_with) result(res)
         type(string_type), intent(in) :: string
         integer, intent(in) :: output_length
-        character(len=1), intent(in), optional :: pad_with
+        character(len=1), intent(in) :: pad_with
         type(string_type) :: res
 
         res = string_type(padl_char_char(char(string), output_length, pad_with))
@@ -614,7 +614,7 @@ end function padl_string_char
     pure function padl_char_string(string, output_length, pad_with) result(res)
         character(len=*), intent(in) :: string
         integer, intent(in) :: output_length
-        type(string_type), intent(in), optional :: pad_with
+        type(string_type), intent(in) :: pad_with
         character(len=max(len(string), output_length)) :: res
 
         res = padl_char_char(string, output_length, char(pad_with))
@@ -626,14 +626,11 @@ end function padl_char_string
     pure function padl_char_char(string, output_length, pad_with) result(res)
         character(len=*), intent(in) :: string
         integer, intent(in) :: output_length
-        character(len=1), intent(in), optional :: pad_with
+        character(len=1), intent(in) :: pad_with
+        character(len=max(len(string), output_length)) :: res
         integer :: string_length
-        character(len=max(string_length, output_length)) :: res
 
         string_length = len(string)
-        if (.not. present(pad_with)) then
-            pad_with = ' '
-        end if
 
         if (string_length < output_length) then
             res = repeat(pad_with, output_length - string_length)
@@ -650,7 +647,7 @@ end function padl_char_char
     pure function padr_string_string(string, output_length, pad_with) result(res)
         type(string_type), intent(in) :: string
         integer, intent(in) :: output_length
-        type(string_type), intent(in), optional :: pad_with
+        type(string_type), intent(in) :: pad_with
         type(string_type) :: res
 
         res = string_type(padr_char_char(char(string), output_length, char(pad_with)))
@@ -662,7 +659,7 @@ end function padr_string_string
     pure function padr_string_char(string, output_length, pad_with) result(res)
         type(string_type), intent(in) :: string
         integer, intent(in) :: output_length
-        character(len=1), intent(in), optional :: pad_with
+        character(len=1), intent(in) :: pad_with
         type(string_type) :: res
 
         res = string_type(padr_char_char(char(string), output_length, pad_with))
@@ -674,7 +671,7 @@ end function padr_string_char
     pure function padr_char_string(string, output_length, pad_with) result(res)
         character(len=*), intent(in) :: string
         integer, intent(in) :: output_length
-        type(string_type), intent(in), optional :: pad_with
+        type(string_type), intent(in) :: pad_with
         character(len=max(len(string), output_length)) :: res
 
         res = padr_char_char(string, output_length, char(pad_with))
@@ -686,14 +683,11 @@ end function padr_char_string
     pure function padr_char_char(string, output_length, pad_with) result(res)
         character(len=*), intent(in) :: string
         integer, intent(in) :: output_length
-        character(len=1), intent(in), optional :: pad_with
+        character(len=1), intent(in) :: pad_with
+        character(len=max(len(string), output_length)) :: res
         integer :: string_length
-        character(len=max(string_length, output_length)) :: res
 
         string_length = len(string)
-        if (.not. present(pad_with)) then
-            pad_with = ' '
-        end if
 
         res = string
         if (string_length < output_length) then