Rename function from to_char to to_string

Author: awvwgk

src/stdlib_ascii.fypp

@@ -20,17 +20,17 @@ module stdlib_ascii
 
     ! Character conversion functions
     public :: to_lower, to_upper, to_title, reverse
-    public :: to_char
+    public :: to_string
 
     !> Version: experimental
     !>
     !> Create a character string representing the value of the provided variable.
-    interface to_char
+    interface to_string
     #:for kind in INT_KINDS
-        module procedure :: to_char_integer_${kind}$
-        module procedure :: to_char_logical_${kind}$
+        module procedure :: to_string_integer_${kind}$
+        module procedure :: to_string_logical_${kind}$
     #:endfor
-    end interface to_char
+    end interface to_string
 
     ! All control characters in the ASCII table (see www.asciitable.com).
     character(len=1), public, parameter :: NUL = achar(int(z'00')) !! Null
@@ -298,7 +298,7 @@ contains
 
     #:for kind in INT_KINDS
     !> Represent an integer of kind ${kind}$ as character sequence
-    pure function to_char_integer_${kind}$(val) result(string)
+    pure function to_string_integer_${kind}$(val) result(string)
         integer, parameter :: ik = ${kind}$
         integer(ik), intent(in) :: val
         character(len=:), allocatable :: string
@@ -329,18 +329,18 @@ contains
         end if
 
         string = buffer(pos:)
-    end function to_char_integer_${kind}$
+    end function to_string_integer_${kind}$
     #:endfor
 
     #:for kind in INT_KINDS
     !> Represent an logical of kind ${kind}$ as character sequence
-    pure function to_char_logical_${kind}$(val) result(string)
+    pure function to_string_logical_${kind}$(val) result(string)
         integer, parameter :: ik = ${kind}$
         logical(ik), intent(in) :: val
         character(len=1) :: string
 
         string = merge("T", "F", val)
-    end function to_char_logical_${kind}$
+    end function to_string_logical_${kind}$
     #:endfor
 
 end module stdlib_ascii

src/stdlib_string_type.fypp

@@ -13,7 +13,7 @@
 !>
 !> The specification of this module is available [here](../page/specs/stdlib_string_type.html).
 module stdlib_string_type
-    use stdlib_ascii, only : to_char
+    use stdlib_ascii, only : to_string
     use stdlib_kinds, only : int8, int16, int32, int64
     implicit none
     private
@@ -327,7 +327,7 @@ contains
     elemental function new_string_from_integer_${kind}$(val) result(new)
         integer(${kind}$), intent(in) :: val
         type(string_type) :: new
-        new%raw = to_char(val)
+        new%raw = to_string(val)
     end function new_string_from_integer_${kind}$
   #:endfor
 
@@ -336,7 +336,7 @@ contains
     elemental function new_string_from_logical_${kind}$(val) result(new)
         logical(${kind}$), intent(in) :: val
         type(string_type) :: new
-        new%raw = to_char(val)
+        new%raw = to_string(val)
     end function new_string_from_logical_${kind}$
   #:endfor
 

src/tests/ascii/test_ascii.f90

@@ -7,7 +7,7 @@ program 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, reverse, LF, TAB, NUL, DEL, &
-        to_char
+        to_string
      use stdlib_kinds, only : int8, int16, int32, int64
 
     implicit none
@@ -75,7 +75,7 @@ program test_ascii
     call test_to_title_string
     call test_reverse_string
 
-    call test_char_value
+    call test_to_string
 
 contains
 
@@ -617,47 +617,47 @@ subroutine test_reverse_string
         call check(trim(adjustl(dlc)) == "desrever")
     end subroutine test_reverse_string
 
-    subroutine test_char_value
+    subroutine test_to_string
        character(len=128) :: flc
 
        write(flc, '(g0)') 1026192
-       call check(to_char(1026192) == trim(flc))
+       call check(to_string(1026192) == trim(flc))
 
        write(flc, '(g0)') -124784
-       call check(to_char(-124784) == trim(flc))
+       call check(to_string(-124784) == trim(flc))
 
        write(flc, '(g0)') 1_int8
-       call check(to_char(1_int8) == trim(flc))
+       call check(to_string(1_int8) == trim(flc))
 
        write(flc, '(g0)') -3_int8
-       call check(to_char(-3_int8) == trim(flc))
+       call check(to_string(-3_int8) == trim(flc))
 
        write(flc, '(g0)') 80_int16
-       call check(to_char(80_int16) == trim(flc))
+       call check(to_string(80_int16) == trim(flc))
 
        write(flc, '(g0)') 8924890_int32
-       call check(to_char(8924890_int32) == trim(flc))
+       call check(to_string(8924890_int32) == trim(flc))
 
        write(flc, '(g0)') -2378401_int32
-       call check(to_char(-2378401_int32) == trim(flc))
+       call check(to_string(-2378401_int32) == trim(flc))
 
        write(flc, '(g0)') -921092378401_int64
-       call check(to_char(-921092378401_int64) == trim(flc))
+       call check(to_string(-921092378401_int64) == trim(flc))
 
        write(flc, '(g0)') 1272835771_int64
-       call check(to_char(1272835771_int64) == trim(flc))
+       call check(to_string(1272835771_int64) == trim(flc))
 
        write(flc, '(g0)') .true.
-       call check(to_char(.true.) == trim(flc))
+       call check(to_string(.true.) == trim(flc))
 
        write(flc, '(g0)') .false.
-       call check(to_char(.false.) == trim(flc))
+       call check(to_string(.false.) == trim(flc))
 
        write(flc, '(g0)') .true._int8
-       call check(to_char(.true._int8) == trim(flc))
+       call check(to_string(.true._int8) == trim(flc))
 
        write(flc, '(g0)') .false._int64
-       call check(to_char(.false._int64) == trim(flc))
-    end subroutine test_char_value
+       call check(to_string(.false._int64) == trim(flc))
+    end subroutine test_to_string
 
 end program test_ascii