str_ascii_default Function

  1. penf_stringify.F90
  2. penf_stringify
  3. str_ascii_default

private pure function str_ascii_default(input) result(output)

Convert string of default kind to ASCII string.

 use penf
 character(len=:, kind=ASCII), allocatable :: string
 string = str_ascii('I was DEFAULT kind, but now I am ASCII')
 print "(A)", string

Arguments

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

Input string of default kind.

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

Output string of ASCII kind.


Called by

proc~~str_ascii_default~~CalledByGraph proc~str_ascii_default str_ascii_default interface~str_ascii str_ascii interface~str_ascii->proc~str_ascii_default program~volatile_doctest~9 volatile_doctest program~volatile_doctest~9->interface~str_ascii program~volatile_doctest~59 volatile_doctest program~volatile_doctest~59->interface~str_ascii program~volatile_doctest~33 volatile_doctest program~volatile_doctest~33->interface~str_ascii program~volatile_doctest~77 volatile_doctest program~volatile_doctest~77->interface~str_ascii program~volatile_doctest~12 volatile_doctest program~volatile_doctest~12->interface~str_ascii program~volatile_doctest~70 volatile_doctest program~volatile_doctest~70->interface~str_ascii

Contents

Source Code

str_ascii_default

Source Code

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

   output = input
   endfunction str_ascii_default