@@ -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
@@ -328,7 +328,7 @@ contains
328
328
329
329
#:for kind in INT_KINDS
330
330
!> Represent an integer of kind ${kind}$ as character sequence
331
- pure function integer_ ${kind}$_to_char (val) result(string)
331
+ pure function to_char_integer_ ${kind}$(val) result(string)
332
332
integer, parameter :: ik = ${kind}$
333
333
integer(ik), intent(in) :: val
334
334
character(len=:), allocatable :: string
@@ -359,18 +359,18 @@ contains
359
359
end if
360
360
361
361
string = buffer(pos:)
362
- end function integer_ ${kind}$_to_char
362
+ end function to_char_integer_ ${kind}$
363
363
#:endfor
364
364
365
365
#:for kind in INT_KINDS
366
366
!> Represent an logical of kind ${kind}$ as character sequence
367
- pure function logical_ ${kind}$_to_char (val) result(string)
367
+ pure function to_char_logical_ ${kind}$(val) result(string)
368
368
integer, parameter :: ik = ${kind}$
369
369
logical(ik), intent(in) :: val
370
370
character(len=1) :: string
371
371
372
372
string = merge("T", "F", val)
373
- end function logical_ ${kind}$_to_char
373
+ end function to_char_logical_ ${kind}$
374
374
#:endfor
375
375
376
376
end module stdlib_ascii
0 commit comments