!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s

character(kind=4), parameter :: c(2) = [character(kind=4) :: &
4_'🍌', 4_'水' ]
print *, '🍌'
print *, 4_'🍌'
print *, '水'
print *, 4_'水'
end

!CHECK: CHARACTER(KIND=4_4), PARAMETER :: c(2_4) = [CHARACTER(KIND=4,LEN=1)::4_"\360\237\215\214",4_"\346\260\264"]
!CHECK: PRINT *, "\360\237\215\214"
!CHECK: PRINT *, 4_"\360\237\215\214"
!CHECK: PRINT *, "\346\260\264"
!CHECK: PRINT *, 4_"\346\260\264"