str_ucs4_default Function

  1. penf_stringify.F90
  2. penf_stringify
  3. str_ucs4_default

private pure function str_ucs4_default(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: input

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


Called by

proc~~str_ucs4_default~5~~CalledByGraph proc~str_ucs4_default~5 str_ucs4_default interface~str_ucs4~5 str_ucs4 interface~str_ucs4~5->proc~str_ucs4_default~5

Contents

Source Code

str_ucs4_default

Source Code

   pure function str_ucs4_default(input) result(output)
   !< Convert string of default kind to UCS4 string.
   !<
   !<```fortran
   !< use penf
   !< character(len=:, kind=UCS4), allocatable :: string
   !< string = str_ascii('I was DEFAULT kind, but now I am UCS4')
   !< print "(A)", string
   !<```
   !=> I was DEFAULT kind, but now I am UCS4 <<<
   character(len=*), intent(in)             :: input  !< Input string of default kind.
   character(len=:, kind=UCS4), allocatable :: output !< Output string of UCS4 kind.

   output = input
   endfunction str_ucs4_default