face_test_ucs4 Program

Uses

  • program~~face_test_ucs4~4~~UsesGraph program~face_test_ucs4~4 face_test_ucs4 module~face face program~face_test_ucs4~4->module~face iso_fortran_env iso_fortran_env module~face->iso_fortran_env

Contents

Source Code


Source Code

program face_test_ucs4
!< FACE test.
use face

implicit none
#ifdef UCS4_SUPPORTED
character(kind=UCS4, len=:), allocatable :: string_1 !< A string.
character(kind=UCS4, len=:), allocatable :: string_2 !< A string.
character(kind=UCS4, len=:), allocatable :: string_3 !< A string.

string_1 = colorize('Hello', color_fg='blue')
string_2 = colorize(UCS4_' ÜÇŞ4', color_fg='red')
string_3 = colorize(' World', color_fg='blue')
print '(A)', string_1//string_2//string_3
#endif
endprogram face_test_ucs4