replaced replace_all_char_char_char with replace_all

Author: aman-godara

src/stdlib_strings.f90

@@ -367,7 +367,7 @@ pure function slice_char(string, first, last, stride) result(sliced_string)
         end if
 
         if (present(first)) then
-            first_index =  first
+            first_index = first
         end if
         if (present(last)) then
             last_index = last
@@ -522,7 +522,7 @@ pure function replace_all_string_string_string(string, pattern, replacement) res
         type(string_type), intent(in) :: replacement
         type(string_type) :: res
 
-        res = string_type(replace_all_char_char_char(char(string), & 
+        res = string_type(replace_all(char(string), & 
                 & char(pattern), char(replacement)))
 
     end function replace_all_string_string_string
@@ -536,7 +536,7 @@ pure function replace_all_string_string_char(string, pattern, replacement) resul
         character(len=*), intent(in) :: replacement
         type(string_type) :: res
 
-        res = string_type(replace_all_char_char_char(char(string), char(pattern), replacement))
+        res = string_type(replace_all(char(string), char(pattern), replacement))
 
     end function replace_all_string_string_char
 
@@ -549,7 +549,7 @@ pure function replace_all_string_char_string(string, pattern, replacement) resul
         type(string_type), intent(in) :: replacement
         type(string_type) :: res
 
-        res = string_type(replace_all_char_char_char(char(string), pattern, char(replacement)))
+        res = string_type(replace_all(char(string), pattern, char(replacement)))
 
     end function replace_all_string_char_string
 
@@ -562,7 +562,7 @@ pure function replace_all_char_string_string(string, pattern, replacement) resul
         type(string_type), intent(in) :: replacement
         character(len=:), allocatable :: res
 
-        res = replace_all_char_char_char(string, char(pattern), char(replacement))
+        res = replace_all(string, char(pattern), char(replacement))
 
     end function replace_all_char_string_string
 
@@ -575,7 +575,7 @@ pure function replace_all_string_char_char(string, pattern, replacement) result(
         character(len=*), intent(in) :: replacement
         type(string_type) :: res
 
-        res = string_type(replace_all_char_char_char(char(string), pattern, replacement))
+        res = string_type(replace_all(char(string), pattern, replacement))
 
     end function replace_all_string_char_char
 
@@ -588,7 +588,7 @@ pure function replace_all_char_string_char(string, pattern, replacement) result(
         character(len=*), intent(in) :: replacement
         character(len=:), allocatable :: res
 
-        res = replace_all_char_char_char(string, char(pattern), replacement)
+        res = replace_all(string, char(pattern), replacement)
 
     end function replace_all_char_string_char
 
@@ -601,7 +601,7 @@ pure function replace_all_char_char_string(string, pattern, replacement) result(
         type(string_type), intent(in) :: replacement
         character(len=:), allocatable :: res
 
-        res = replace_all_char_char_char(string, pattern, char(replacement))
+        res = replace_all(string, pattern, char(replacement))
 
     end function replace_all_char_char_string