ucs4_string Function

  1. forbear_kinds.F90
  2. forbear_kinds
  3. ucs4_string

public pure function ucs4_string(input) result(output)

Convert string of any kind to UCS4 string.

Arguments

Type IntentOptional AttributesName
class(*), intent(in) :: input

Input string of any kind.

Return Value character(kind=len=:,UCS4), allocatable

Output string of UCS4 kind.

Called By

proc~~ucs4_string~~CalledByGraph proc~ucs4_string ucs4_string proc~create_spinner create_spinner proc~create_spinner->proc~ucs4_string proc~initialize initialize proc~initialize->proc~ucs4_string
Help

Source Code

ucs4_string

Source Code

   pure function ucs4_string(input) result(output)
   !< Convert string of any kind to UCS4 string.
   class(*), intent(in)                     :: input  !< Input string of any kind.
   character(len=:, kind=UCS4), allocatable :: output !< Output string of UCS4 kind.

   select type(input)
#if defined ASCII_SUPPORTED && defined ASCII_NEQ_DEFAULT
   type is(character(len=*, kind=ASCII))
      output = input
#endif
#ifdef UCS4_SUPPORTED
   type is(character(len=*, kind=UCS4))
      output = input
#endif
   type is(character(len=*))
      output = input
   endselect
   endfunction ucs4_string

All Procedures