face_test_ucs4.F90 Source File

!< FACE test.
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