Fortran Wiki
selected_char_kind (changes)

Showing changes from revision #2 to #3: Added | Removed | Changed

Description

selected_char_kind(name) returns the kind value for the character set named name, if a character set with such a name is supported, or $-1$ otherwise. Currently, supported character sets include “ASCII” and “DEFAULT”, which are equivalent. equivalent, and “ISO_10646” (Universal Character Set, UCS-4) which is commonly known as Unicode.

Standard

Fortran 2003 and later

Class

Transformational function

Syntax

result = selected_char_kind(name)

Arguments

• name - Shall be a scalar and of the default character type.

Example

program  ascii_kind character_kind
  use iso_fortran_env
  implicit none
  integer, parameter :: ascii = selected_char_kind ("ascii")
  integer, parameter :: ucs4  = selected_char_kind ('ISO_10646')

  character(kind=ascii, len=26) ::  s alphabet 
 
 s character (kind= ucs4,  len=30) :: hello_world

  alphabet = ascii_"abcdefghijklmnopqrstuvwxyz"
   print hello_world  *, =  s ucs4_
'Hello World and Ni Hao -- ' &
                // char (int (z'4F60'), ucs4)     &
                // char (int (z'597D'), ucs4)

  write (*,*) alphabet

  open (output_unit, encoding='UTF-8')
  write (*,*) trim (hello_world)
end program  ascii_kind character_kind