＜Example Program＞

Program char_example
  Integer,Parameter :: iso10646 = Selected_Char_Kind('ISO_10646')
  Character(*,iso10646),Parameter :: hello_string = iso10646_'Hello Char'
  Call show([ (Ichar(hello_string(i:i)),i=1,Len(hello_string)) ])
Contains
  Subroutine show(array)
    Integer,Intent(In) :: array(:)
    Print *,(Char(array(i),iso10646),i=1,Size(array))
  End Subroutine
End Program

---

■ Execution Results

 Hello Char