mirror of
https://github.com/gentoo-mirror/guru.git
synced 2025-04-21 07:52:21 -04:00
23 lines
757 B
Diff
23 lines
757 B
Diff
diff -Naur a/src/third_party/FACE/src/tests/face_test_ucs4.F90 b/src/third_party/FACE/src/tests/face_test_ucs4.F90
|
|
--- a/src/third_party/FACE/src/tests/face_test_ucs4.F90
|
|
+++ b/src/third_party/FACE/src/tests/face_test_ucs4.F90
|
|
@@ -2,9 +2,10 @@
|
|
program face_test_ucs4
|
|
!< FACE test.
|
|
use face
|
|
+use iso_fortran_env
|
|
|
|
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.
|
|
@@ -13,5 +14,5 @@
|
|
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
|