Deploying to stdlib-fpm from @ 91387a0 🚀

Author: awvwgk

src/stdlib_string_type.f90

@@ -75,10 +75,6 @@ elemental module function new_string_from_logical_lk(val) result(new)
             logical(lk), intent(in) :: val
             type(string_type) :: new
         end function new_string_from_logical_lk
-        elemental module function new_string_from_logical_c_bool(val) result(new)
-            logical(c_bool), intent(in) :: val
-            type(string_type) :: new
-        end function new_string_from_logical_c_bool
     end interface string_type        
 
     !> Returns the length of the character sequence without trailing spaces

src/stdlib_string_type_constructor.f90

@@ -44,11 +44,5 @@ elemental module function new_string_from_logical_lk(val) result(new)
         type(string_type) :: new
         new%raw = to_string(val)
     end function new_string_from_logical_lk
-    !> Constructor for new string instances from a logical of kind c_bool.
-    elemental module function new_string_from_logical_c_bool(val) result(new)
-        logical(c_bool), intent(in) :: val
-        type(string_type) :: new
-        new%raw = to_string(val)
-    end function new_string_from_logical_c_bool
 
 end submodule stdlib_string_type_constructor

src/stdlib_strings.f90

@@ -85,15 +85,6 @@ pure module function to_string_2_l_lk(value, format) result(string)
             character(len=*), intent(in) :: format
             character(len=:), allocatable :: string
         end function to_string_2_l_lk
-        pure module function to_string_1_l_c_bool(value) result(string)
-            logical(c_bool), intent(in) :: value
-            character(len=1) :: string 
-        end function to_string_1_l_c_bool
-        pure module function to_string_2_l_c_bool(value, format) result(string)
-            logical(c_bool), intent(in) :: value
-            character(len=*), intent(in) :: format
-            character(len=:), allocatable :: string
-        end function to_string_2_l_c_bool
     end interface to_string
 
     !> Remove leading and trailing whitespace characters.

src/stdlib_strings_to_string.f90

@@ -288,30 +288,5 @@ pure module function to_string_2_l_lk(value, format) result(string)
         end if
 
     end function to_string_2_l_lk
-    !> Represent an logical of kind c_bool as character sequence.
-    pure module function to_string_1_l_c_bool(value) result(string)
-        logical(c_bool), intent(in) :: value
-        character(len=1) :: string
-
-        string = merge("T", "F", value)
-
-    end function to_string_1_l_c_bool
-
-    pure module function to_string_2_l_c_bool(value, format) result(string)
-        logical(c_bool), intent(in) :: value
-        character(len=*), intent(in) :: format
-        character(len=:), allocatable :: string
-
-        character(len=buffer_len) :: buffer
-        integer :: stat
-
-        write(buffer, "(" // format // ")", iostat=stat) value
-        if (stat == 0) then
-            string = trim(buffer)
-        else
-            string = err_sym
-        end if
-
-    end function to_string_2_l_c_bool
 
 end submodule stdlib_strings_to_string

test/test_ascii.f90

@@ -6,7 +6,7 @@ module test_ascii
         is_digit, is_octal_digit, is_hex_digit, is_white, is_blank, &
         is_control, is_punctuation, is_graphical, is_printable, is_ascii, &
         to_lower, to_upper, to_title, to_sentence, reverse, LF, TAB, NUL, DEL
-    use stdlib_kinds, only : int8, int16, int32, int64, lk, c_bool
+    use stdlib_kinds, only : int8, int16, int32, int64, lk
     implicit none
     private