Path: ...!feeds.phibee-telecom.net!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "Steven G. Kargl" <sgk@REMOVEtroutmask.apl.washington.edu>
Newsgroups: comp.lang.fortran
Subject: Re: Upcoming gfortran 15 will contain unsigned numbers
Date: Tue, 15 Oct 2024 20:46:59 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 32
Message-ID: <vemkc3$1rfq7$1@dont-email.me>
References: <veg58f$kb8e$1@dont-email.me> <vemj62$1qt5b$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Tue, 15 Oct 2024 22:46:59 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="fa33e08a79cb235d61eac16850294864";
	logging-data="1949511"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19YU+7Sb2m4juP9yYouXmqt"
User-Agent: Pan/0.145 (Duplicitous mercenary valetism; d7e168a
 git.gnome.org/pan2)
Cancel-Lock: sha1:GelhomPNQ31B+nPoM1M1dAv0PS4=
Bytes: 1908

On Tue, 15 Oct 2024 15:26:42 -0500, Lynn McGuire wrote:

>
> Any plans to support UTF16 or UTF8 in gfortran ?
> 

gfortran has supported UTF-8 for long time now.  Here's
an example from the manual.


 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

-- 
steve