9.237 SELECTED_CHAR_KIND — Выбор типа символа

Описание:

SELECTED_CHAR_KIND(NAME) возвращает значение типа символов для набора символов с именем NAME, если такой набор символов поддерживается, или -1 в противном случае. В настоящее время поддерживаются наборы символов «ASCII» и «DEFAULT», которые эквивалентны, а также «ISO_10646» (Универсальный набор символов, UCS-4), который обычно известен как Unicode.

Стандарт:

Fortran 2003 и более поздние версии

Класс:

Трансформационная функция

Синтаксис:

RESULT = SELECTED_CHAR_KIND(NAME)

Аргументы:

NAME	Должен быть скалярным и иметь тип символов по умолчанию.

Пример:

program 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) :: alphabet
  character(kind=ucs4,  len=30) :: hello_world

  alphabet = ascii_"abcdefghijklmnopqrstuvwxyz"
  hello_world = 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 character_kind