selected_char_kind(3f) - [FORTRAN:INTRINSIC:KIND] Choose character kind such as "Unicode"
result = selected_char_kind(name)
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" (iwhich are equivalent), and "ISO_10646" (Universal Character Set, UCS-4) which is commonly known as "Unicode".
NAME Shall be a scalar and of the default character type.
Sample program:
program demo_selected_char_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) :: alphabet character(kind=ucs4, len=30) :: hello_world
alphabet = ascii_"abcdefghijklmnopqrstuvwxyz" hello_world = ucs4_Hello World and Ni Hao -- & // char (int (z4F60), ucs4) & // char (int (z597D), ucs4)
write (*,*) alphabet
open (output_unit, encoding=UTF-8) write (*,*) trim (hello_world) end program demo_selected_char_kind
[[Fortran 2003]] and later
Transformational function
selected_char_kind (3) | March 11, 2021 |