@@ -27,8 +27,8 @@ module stdlib_ascii
27
27
!> Create a character string representing the value of the provided variable.
28
28
interface to_char
29
29
#:for kind in INT_KINDS
30
- module procedure :: integer_ ${kind}$_to_char
31
- module procedure :: logical_ ${kind}$_to_char
30
+ module procedure :: to_char_integer_ ${kind}$
31
+ module procedure :: to_char_logical_ ${kind}$
32
32
#:endfor
33
33
end interface to_char
34
34
@@ -298,7 +298,7 @@ contains
298
298
299
299
#:for kind in INT_KINDS
300
300
!> Represent an integer of kind ${kind}$ as character sequence
301
- pure function integer_ ${kind}$_to_char (val) result(string)
301
+ pure function to_char_integer_ ${kind}$(val) result(string)
302
302
integer, parameter :: ik = ${kind}$
303
303
integer(ik), intent(in) :: val
304
304
character(len=:), allocatable :: string
@@ -329,18 +329,18 @@ contains
329
329
end if
330
330
331
331
string = buffer(pos:)
332
- end function integer_ ${kind}$_to_char
332
+ end function to_char_integer_ ${kind}$
333
333
#:endfor
334
334
335
335
#:for kind in INT_KINDS
336
336
!> Represent an logical of kind ${kind}$ as character sequence
337
- pure function logical_ ${kind}$_to_char (val) result(string)
337
+ pure function to_char_logical_ ${kind}$(val) result(string)
338
338
integer, parameter :: ik = ${kind}$
339
339
logical(ik), intent(in) :: val
340
340
character(len=1) :: string
341
341
342
342
string = merge("T", "F", val)
343
- end function logical_ ${kind}$_to_char
343
+ end function to_char_logical_ ${kind}$
344
344
#:endfor
345
345
346
346
end module stdlib_ascii
0 commit comments