blob: 3a3745524d807e17092d71956ce987c58ad15fd8 [file] [log] [blame] [edit]
!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"